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Sserions-nous en train de marcher sur Les pieds d'ASHTON-TATE® Aujourd'hui une 
extension permettant ce gérer Les fichiers  QBASE ITIT/III+ depuis TURBC-Forth. 
demain UN Micro-processeur Spécialisé en SGÉD, programmable en Forth et de 
fabrication française! C'est en tout Ca$ CE qui est proposé dans Ce numero de 
JEDT. Et tant qu'à marcher sur Les pieds des autres, j'apprends QUE dans FORTH 
DIMENSION, ils ont pondu un DrOgramme accédant aux fichiers dBASE, mais bien 
moins évolué que Le nôtre. Arghh! 1 FORTH DIMENSION baisserait-il sa garde”? 
L'ÉLÈVE dépasserai-t-il Le maitre? SOMMES-NOUS surdoués? AVOnS-n0u5 mangé du 
TOPSET? Sue Ellen se réconciliera-t-elle une fois de plus avec JR? 


Et même que nous avons ouvert notre FORUM sur 3615 SAMXJEDI. Et il Y EN à qui ne 
l'ont pas encore e55ayé. Mais à quoi Ça Sert que nous nous décarcassions chez 
JEDI? Pimentez vos relations AVEC Un zeste de TELETEL, c’est Ça UNE association 
dynamique et évoluée. Nes questions? Des réponses? Des problèmes avec FORTH, 
TURBG-Forth, VOLKkS-FORTH, autre-chose-Forth? Un seul réflexe, 3615 SAM*%JEDI] : 


jamais encombré, disponible 24h/24, 365.25 jours/ans, 32 voies d'acces 
simultanées... Méme Les américains restent muets. 
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| TRITURATIONS BINRIRES 


jar Marc PETREMANX 


MSDOS, 


EURIH 8A-Standaré: pour  tôbs systèmes CPI. 


ValksFORTH ATARI, etc... 


Les nombres ont partois de Dien Curieuses gropriétes quant 
on Les réarrenge selon des dis5051t10n5 particytiéres, Dans 
un précédent articie au sujet ce La logique ginaire, j'a” 
vais mentionné te codage binaire classique et Celui denomré 
code binaire corrigé. appelé aussi COdE AIKEN: 


codage binaire 


ordinaire AIKEN 
600 0 000 0 
601 : Got 
010 ? 4213 
5113 ÿ19 ? 
108 4 140 6 
5015 5117 
110 6 1915 
vit? 100 à 


Le code binaire dont ia disposition à éte réarrançé dans Là 
coionne AIKEN possède une oremière aropriéte:* Les NOMrES 
consécutifs n'ont qu'un seul digit variant avec Le préce- 
dent où te suivant". Mieux, tes extrémités de cetle série 
peuvent être retiêes 58n5 QUE LE précédent énoncé ne soit 
mis en défaut. 


Dans notre exempie, La série à ete développée à gartir de 
DE 3 éléments, mais elle peut L'être gour un A0mbre quel- 
conque d'biements, <edit nombre étant touigurs pag pus 
sance de deux. Les écéments contenus dans La Serie binaire 
AIKEN sont situës entre, { et 2EN-3 Dour 2EN éléments: Le 


nombre de digits or15 en compte 251 ëgat à N. 


A priori, Le réarrangement dans L'OMGTE ginaire AIKEN n'a 
aucune oasticusarité en décimal. Pourtant, en V regardant 
de plus prés, Il ressort de La d1sp0sitign Sulvanté: 


SÉSARErE 


qu'en effectuant Les diftérences entre tes elements 1n- 


gites: 


nt2EN-i)-n(1) 


pour à compris entre et Z2ENI2. On 
vateur constante: 
pour i=1 n{2Eh-1)24 nit):0 4-024 
pour 1:2 nÛ2EN-2)=5 nt2)st 53-154 
pour i=4 n2EN-3):7 n(3)=2 77-354 
pour is4 n2EN-4):6 nta):2 b-254 


Cette regle s'appiique Également a une série pius grande. 


Certes, en grattant un Deu, pourra-t-on dégager une régle 
mathématique permettant 6e retrouver La valeur de L'ÉLÉMENT 
d'angice i d'une suite binaire AIKEN C'Orûre 2EN pour N 
étant Le nombre de digits ninaires pris en Comptes. Exem- 
pie, quelle est La vateur de L'évément d'indice 23 d'une 
série d'ordre 2£B, c'est à dire € 256 btéments codés Sur 
nuit dits? ce jour, je n'ai pas trouve Ge méthode de cai- 
cul, mais seucement une methode GE découpage re de 
La série d'ordre ZEN. Je propose aux matheux de résoudre ce 
getit problème. 


de notre série binaire Classique 


Maintenant, repartons 1 
d'ordre 2E3 ayant servi à l'illustration du prècédent pro- 
po5: 


serle binaire 
ciassique refiécnie 
005 0 200 0 
00 4 


11 
ÿ? ÿt0 À 
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obtient toujours Une 


jan © ab 


:f6 à ‘ 
gts i0t 5 
10 6 j11 3 
1117 tt} 
La sbrie binaire nommée ‘réfléchie’ resrenc “en miroir" 


les digits binaires de La sèrie classique: ON à retourné" 
comme Une chaussette Les N premiers gits de La sfrie d'gr- 
dre 2EN. Ici, t'atgoritame a ou être détermine et réaiisé 
en FORTE: 


: 2EN (on --- 2en) 
QUE IF 3 SWAP Ü 
D0 2 x LOOF 


ELSE DROP 
THEN 
 REFL Unoagits --- réftéchi de n sur ñ dits) 
UP DR î- & 00 ? IM0D LOUP 
0 OC R> SWAP 
00 SAP 
1F  L 2PUISS + 
THEN 
LOGP ; 
Exemple: 
Q 3 REFL . affiche À 
4 3 REFL . affiche à 
è 3 REFL . affiche : 
PIC... | 
7 3 REFL. affiche 7 
Ici, nouvelle surorise, La sèrie dévelopote par cette mée- 


thode à aussi ses propriétés garticuléres: 


- de part et d'autre de ta Ligne de symétrie s1tube entre 
Les éléments d'indice 2EN/2 et 2EN/2+1, Les nombres sont 
d'abord tous pairs, ouis ensuite tous impairs, En fait. 
quang on regarde Les équivalents binaires de La sèrie d'u- 
rigine, La Cause de cette proprièté est évidente: elle dé- 
pend ou bit de poids fort qui devient Le bit de poids fai- 
ble en binaire réfléchi. 


- Les sommes deux à deux des elements d'indice 2EN-i et à 
donnent toujours une constante égale à 2EN-1, pour 1 COM- 
pris entre * pt 2EN/2: 


4261537 

pour is n(2En-1):7 n(1):0 7+0:7 
pour 1=2 n(2EN-2):3 n(2):4 3+4<7 
pour 123 n(2EN-3):5 n(3)22 5+2:/ 
pour isé nÜ2EN-415i n(4):6 +677 


- tes blements d'indice 2EN/2+1 à ZEN correspondent à La 
ur des éléments respectifs d'indice ? à 2EN/2 augmentés 
e 1. 


Voilà que Le code binaire réfléchi donne à réflechir, Je 
vous Laisse Le soin de développer et formuler une FÊQUE 
s'apptiquant à tous Les Cas. & 
de PORTA ne 
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M, Zupan & Ass, JEDI 


Système: TURBO-Forth 43-Standard M5DDS 
giffusion: fichier  DBCOUK.FTH sur 


3615 SAM#JEDI en 
DR EAENR) prochainement dans Le modute M4 de TURBD- 
orth. 

Adaptanilité: très difficile à d'autres systèmes 


LISTING: 


oniy definitions fortn vocabutary DATABR 
AE PAEUEEE RDA REC nal + 


D8COUK.FTH 


- 


. h 4 VAT L' mn à : TRS. Pre " 
CSegment düiop 12 dafiie & {nût FÜcs-eer gps 


-10ÿ4 LBUF FILES 6 4 s - : REAC-FIELOS À 
constant LIMIT 1 Lit Les descrigteurs de caamps 
\ limite haute des tampons gu Fortin ffieids 0 ac 
variable OBFILE 32 1 + + 530 dôtiie à 
\ handle du Ês ef .dbi Couran 0 (seek} ?Gos-err ?cros 
66 String OBFILE dsegment fid-buffer ! 2Q « + à 
LU chemin Qu Tue er .dbi courant düfite @ (get) Ÿos-err gros 
Create DBTOP 8 atict L00p : 
Ü LT principale gu fi si er courant 
: CAPACITY © -- y } got 4+G: : SEEK-RECORO in -- ; 
| nombre d' enregistrements \ pointe L'enregistrement n 
: BIHEADER ( -- le } dbiop 8 +@: GUp = puer capacity ü gr 
À AAA de L'en-tete fichier abort* enregistrement hors Limites* 
: BIRECORD  f -- ie }  dütop (0 - B. Î- &/record um* D/heager 56 d+ 
1 tongueur d'un enregistrement gûtite @ O (seek) ?Dos-err ?croc : 
: HFIELS {-- nn) dbtan 1? + @: 
À nomore ce Champs par enregistrement : READ- RECORD € -- : 
: FED-BUFFER ( -- acr 3 dbtos ‘é + #8: Loit l'enregistrement courant 
Î tampon des descripteurs de champs FECOrÉ SPPK-FPCOPÉ 
! RÉC-BUFFER | -- ar ) dütop tb + @ : éseoment rec-buffer 
\ tamDGn d'enregistrement Direcord chfice & (get; ?Nos-err droc : 
variable REC 
\ AE courant : MRITE-RECORD i -- ; 
: RECORÉ À -- n j rec à ; ! Sauve l'enregistrement Courant 
variadle FLD update & 
i su Courant if FRCOPÉ sBek-recGrE 
FU His teets segment rec-pufte* 
birécord Gbfiie & (put) /os-err gros 
À DESCRIPTION DES CHGMP3 dodate 9ft writz-tpo 
HART SSSR RQNE RARES ES then : 
t CFE) (== gr } 
ki descripteur du ne Couran: : APPEND-BLENK © -- 
fto @ 1 20 # ld-buf'er + : | g20ute un enregistrement vide 
; FLDRAME { -- ggr Len ) write-recort 
\ nom OU Champ rec-buffer Direcorc biant 
td up 11 dbtou à + +! 
de count G: ?Leave Loco Capacity sePk-rPCGrÉ 
guer - |: eme rec-buffer 
2 FLBIVPE Us} (fig te c@: Dirécord î+ dbfiie B tout) ?Oos-err 
À iQ ou champ (C,N,L,M,0) DIrecGrd {= abort" disque plein" 
Fe { -- aûr à write-top capacity rec ! : 
| pasition ou Champ dans Le record (= enregistrement courant ; 


ie 12 + @ fid-buffer 
12 +@- 4 +; 


CREATION DES MOTS-CHAMPS DANS LE DICT CONNAITRE FORTE 


! FLDLEN OL -- on} éd 16 + c@ : Donnrresseseeseesess esse sses sas unes decenecnencenene 
è LONQUEUT Cu CNamp 0 OCRERTE (rss) 
FLODET ({ -- n ) tfldr 47 + cé: 1 Crée Le mot-champ courant 
l somore de did fidname here place 
FÈUFLAG € -- ft }'efidi 18 + & : nere coun upper 
\ fiag de sélection d'un chame here “create FC, 
coes} @ fld! : 
GESTION DE LA DATE COURANTE \ à l'exécution: Champ courant 
A TE) OL -- 48 mi) : CREATE-FIELDS { -- 
À voue e ia date MS- -D05 l multi-création des mo!s-chamos 
L # ah mov 33 int cx push dx push nest end-coûe fields 1+ 1 
: DATE! {--) do [ fld! (create ‘09 : 
\ met date à jour dans header 
fcate} Flip Swap 1900 - dotag i+ tuer ci tr ! : i SELECTION DES CHAMPS ACTIFS 
MERE 
CTURES/ECRITURES ACCES DIRECT Dù FICHIER 1 SET à } 
À mrremseenens sean siennes essences \ sét ectionne | Le champ courant 
Variante UPDATE : Lo + gn: 
\ drapeau enregistrement mocifié : EXCEPT Le) 
U'dè-sblectionne ce champ courant 
: REGO-TOP tfidi 18 + ft : 
Î charge à L'er-tete : SELECTI ON À 
ü Gabiieep {seex} ?D55- . 26F6D \ grépare une “sélection de champs 
dsegment dot 0p 12 dbfile @ (get) tüos- err ÔPOD Hfields + 1 co. F fid! excepi i00p : 
biheager 32 / 1- , dotun 124 : FIELDS { -- 
{ nombre de champs ) \ sélectionne tas LeS Cham 
timit #fields 20 # - dbtap 4 + : dede 147 do 1 fic! set 009 : 


{ tampon descripteur champs } 
fed-ouffer birecord 14 - dbtop 16 + : 
{ 


OPÉRATEURS CHAINES SUR LE CHAMP COURENT 


tampon Ë enregistrement ] Done neessss esse usines 
26 fid- “buf RATE : Ü { -- adr ten } 
ï ctri-2 fin de ficnier ) \ Champ courant 
flapos fldien ; 
! WRITE-TOP 
\ ré-berit l'en-tête ‘= TRA- ( Oadr Len -- agr' ten' ) 
date! 9 G dbfite @ À (seek) ?Oo5-ers ?ûrep | Suppression espaces début e* fin : 


ŒN LE Mai 1488 


-trailing 5 Sk1E ; 


: OA (--d) 
{ conversion champ -» ndre double 
base @ or decimai 
[} -trait- pag DLace 
pl pad count + ci 
pad aumber ? 
{ position qu point décamat récugérable dans DPL 
= if ?drap & 0 then r} 5ase | ; 


. CUMPARES € adt ini ad2 Ln2 -- fl 
\ Compare 2 chaines d'inégale Longueur 
-trail- 2swan -trail- 
rot 25waf 20ver MIN COMPÈTE °dup 
if -rot 20r0p 
else 2dup ©) -rat à ?negate then ; 1 fi = 0 -Tou1 


1 COMPARES est plus pratique et plus générat que COMPARE 


tadt ad2 L --f0) 
\ et comme pour lui, Les minuscules sgnt 
\ converties selon LAPS 


: (= Cadr ten -- {L ) 
\ test chaine=champ Courant 
{} compares 0: ; 

: (hs Cadr Len -- ft) 

\ test Chaine):champ 
{} compares D)= : nn. 

: (és (aor ten -- 1Ù ) 
\ test chainet=champ 
() compares (x ; 

: OS { adr Len -- fL D 
\ test présence de 50U5-Chalne 
{} search Nip ; 


utz ! search 12 + | 
cette Ligne corrige Le SEARCH) 


des premières versions Turbo-Forth } 
elle peut ètre supprimée dans Les versions déboguêes } 


{| DEPLACEMENTS DANS LE FICHIER 


: 60 Ce 
\ positionne recoré Courant 
write-record duo record {? 
ii rec ! read-record else drop then ; 


: COPY (n-- i 
{ copie record courant dans record ñ 
rec { update on write-recort ; 


: PERMUTE {n--) 
\ permute record courant avec FECOr 0 N 
rec-bufter dup birecord tuck - Swan CMOVE 
record over Q0 Copy 
rec-bufter dup birecord tuck - -rot CmOve 
Capy ; 


PROCEDURES VECTORISEES CONDITIONNELLES 
SUR L'ENSEMBLE OU FICHIER 


mm 


— — 


\ vecteur général de condition 


: ALL Rraoe e 
\ supprime toute condition 
{'} true 15 condition : 
: (FOR) LVL} 
\ FOR en compilation 
r> dup 2+r @ 15 condition : 
: FOR { émat test -- ) 
V'active une Condition 
state @ if compile (for) | 
else ‘ is condition then ; immediate 


variable CNT 
\ compteur 
defer PROCESS € -- } 
\ Vecteur général d'action record 


: DOPROÉESS { 


= ) 
\ Applique PROCESS au fichier 
cat off capacity it 1 


ED 4S-Mar 1988 


da Ï go condition if orocess ent ?+i then 
stop? ?Leave 
LO0P ; 


: (PROCEED) Less Je; 
\ Froceeë en compitation 
r) dup 2+ )r @ 15 process doprocess ; 


: PROCEED Ü (procedure) -- ) 
\ Exécute une procédure fichier 
state @ it compile (proceed) 
else ‘ 15 process doprocess then ; immeciate 


: COUT {-) 
\ affiche compteur de proceec 
cr ent & GB u.R .* enregistrement(s) * ; 


\ AFFICHAGE DE LA STRUCTURE OÙ FICHIER COURANT 


.STRUCTURE CD 

cr ." Structure du fichier 

0 0 dhfile @ 2 (seek} ?Dos-err 

cr ,* Jaitle en octets : SUR 

cr ." Octets d'en-tête : “ biheader 9 .R 

cr ." Nombre d'enregistrements: * capacity 3 u.R 

cr ." Dernière mise à jour ; 

dbtoo 1+ count 9 rot count swap c@ 100 * + 100 umx d+ 

a Hascii / hold # # ascia À hold # 4 #+ type 

cr." Champ nom champ type dim  déc° 

ffields 1+ 1 

do cr I 5 .R 2 spaces I! fld! 
fldname type 19 ?Fat 
fldtype case ascii € of . 


+: " dbfilet type 


Caractère" endof 


a5cli N of .* Numérique” endof 
ascii L ot .* ES Li endof 
ascii D of ." Date endut 
ascii M of ." Mémo" endof 


endcase 
fidlen 32 ?Tab 3 .R 39 ?Tab 
flddec ?Oup if 3 .R then 
stap? ?Leave Loop 
cr." #4 Total #4" 30 ?Tab birecord 5 u.R cr ; 


DEBUT ET FIN DE SESSION DE TRAVAIL SUR UN FICHIER BASE 


USE { Cfilenamel .dbf}r -- ) 

\ ouvre un fichier .DBF 

?open exts pad place * .DBF" ext$ $! 
\ext. .DBF par défaut 

filename 2 (open) 

\ ouvre Lecturelécriture 

here count dbfiles $! 

{ conserve chemininom-fichier 

pad count ext$  $i 

\ restitue extension usuelie 
?Go5-err dbfile : 

handle du fichier .dbf 

read-top — 

i Lit l'en-tête du fichier 
read-flelgs 

{ charge descripteurs de champs 

only forth also datanase definitions 
\ vocabulaire database de travail 

* mark SESSION" Sexecute 

\ début d'une session de travail 
create-fields 

\ crée Les mots de champs | 

rec off 1 fld! update aff all fields 
\ initialise L'utilisation 


a: 


: END Cr he 
\ clôture de session USE 
: MAIS SESSION" Sexecute cr 
i oublie La session de travail 
urite-record er 
\ sauve dernier record 51 modifie 
dbfile @ (close) 
\ ferme fichier .dbf 
." Clôture de * dbfiles type cr ; 
\ confirme 


L'DESPLAY FICHIER SELON CHAMPS SELECTIONNES ET CONDITION 


varlable RECNOS recnos on 

flag d15)tay n° d'enregistrement 
variable CÜLS 

lonombre de colonnes en sortie 
66 cols ! 

\ pour l'ecran 


: PCRDISP € width -- 7} 
| passage à ia Ligne dans display 
fout @ + cols @ 1- )- 
if cr recnos & 
1f 7 else 2 then spaces 
then ; 


: LOISP Uadr Len width -- 
\ affichage formaté à juin 
dup ?crdisp over - -rg type spaces : 


! ROISP U adr Len widtn -- 
\ affichage formaté à droite 
dup ?crd150 over - spaces type : 


: OBISPLAY { -- ) 
\ Affiche Champ courant 
Ü dun floname nip max fidtype case 
ä5C11 € of tdisp encof 
a5C)1 N of rdisp padof 
85011 M 0f 4 max -rot 2grop : 
| * mémo" rot Ldisp endof 
45011 L'OË 3 max dup ?créisp -rot 
drop a5cii . emit 
c@ emit ascii . emit 
3 - spaces endoi 
à5C11 D of cup ?crdiso -rot drop 
dun 6 + 2 pe 
25011 / emit dup 4 + 2 type 
a5C11 / emit 
2 + 2 type 8 - spaces endot roc 
endcase ; 


: ÉJDISPLAY ( -- ) 
1 displav record Selon selection 
Cr Pecnos @ 1f record 5 u.R then 
rec-buffer c@ emit space 
fields 14 1 do I flat 
fLdflag if (display space then Loop : 


: DISPLAY (--) | 
À PE fichier selon condition 
CP Doit recnos @ if .* Enr.N° " pl5e 9 Spaces then 
fields + 1 do I flot 
fidftag if flüname fidten over max 
fldtype case 
asc1i C of Ldisp endot 
ä5C11 N of rüisp endof 
85011 L 0! 3 max (di5p endot 
35011 M of 4 max [0159 endof 
d5C11 D of Ldisp endot endcase 
space 


a 


— 


then 
. Loop attoff 
Droceed [ldisplay count : 


SUPPRESSION D'ENREGISTREMENTS 
: DELETED (-- fi) 
| recorg courant effacé ? 
PeC-Duffer c@ ascià à = : 
: UNDELETED © -- ft) | 
| record courant valide ? 
deleted not : 


: [JDELETE (--) 
| pré-efface record courant 
undeleted 11 
a$c1i * rec-buffer c! update on tnen : 


: CIRECALL (--) 

\ restitue record Courant 
deleted 1f 
dÙ rec-buffer c! update on then : 


: DELETE  {-- ) _ 
\'efface fichier seion candition 
Droceed [ldelete count ." effacé(s} 


: RECRLL {-- ) 
\ restitue fichier seion condition 
proceed {lrecall .count .* restituel 


EDITIONS ET AJOUTS D'ENRÉGISTREMENTS 
: NUM (adr Len -- fl) 
| test chaine numérique 
base @ Dr decimal pad place 
dl pad count + ci 
bad number? -rot 2drop 
if dpt @ dup 

if flddec ?oup 

if = else -1 = then 

then 
else false 
then Fr) base : : 


: REPLACE (ar Len -- j 
\' place une chaine dans Le champ 
cl if | 
} älank -trail- 
Ldtype case 


( 
f 


L . 


s}" 


35011 € of (} rot min cmove endof 


ascii N of 2dup °num 


if () rot over min dup 
br - + r) cmove 


else 2ÿr0p 
then endof 
85011 L of drop c@ fldpos c! 


endof 


a5C1i D of 2qup ?num swap & : ang 


if () cmove 
else drop 
. . then endot 
45011 M ot drop endot adrop 
update on 
else Grop then : 


: OEDIT  (--) 
\ édite champ courant 
Cr fldname type 12 tab invers 
() type fldlen backspaces 
here fldlen expect 
Span @ Gup + fldlen min backspaces 
fere Swap replace () type attoff : 


: ÉJEDIT  (--) | 
|'èdite record selon sélection 
cr." Enreg. n°" record u. 
Hields ?+ 1 do I fld! 


endease 


fldftag if Csdit then 


{00p write-record : 


! RETRY? € -- fit {12 ) 
| question fin d'édition record 


Cr." €R) reprend / (Q» quitte y continue * key upt 


Case ascii R of false false endaf 
45011 Q of true true endoi 


false true rot endcase : 


: EDIT (Es) | 
U'édite fichier selon condition 
Capacity 1+ 1 Gr 
60 } go false condition 

if deqin drop [ledit retry? unti: 
then ?ieave 
Loop ; 


t 


! APPEND  {--) allonge te fichier 


begin append-biank fatse 
. begin drop [edit retry? until 
ntil ; 


80? 1 FIN DE FICHIER 
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dBCO0k est un utilitaire turbo-Farth de gestion de fichiers 
de données au standard bien connu  dBASE LE-HII-HI# Il 
permet notamment de CONSULtEr Un fichier dBASE, de Le modi- 
fier, d'y ajouter des données. AVEC 55 4K compités, dBCODK 
représente un AOVau jnterface entre un Langage compilé 
guissant et un gestionnaire de bases de données iniversel. 
A partir de ce noyau simple, L'utilisateur pourra dévelop 
per en Forth des nt conpilées très spécifiques à 
son environnement dBASE personnel. 


gien que BASE soit particulièrement puissant, flexible, 
aisément programmable grâce à 50N ue propre, 1 peut 
s'avérer nécessaire dé di5p05er d'outils pour Lesquels it 
n'a pas été prévu ou pour lesquels il peut sembler mal 
adapté ou trop Lourd, [L est En outre appréciable de pou- 
vair partager à faible cout des fichiers BASE sur des 
sites ne disposant Da5 du programme gestionnaire dBAGE 


dBCOOK n'est pas un clone de dBASE: 1L 56 contente de gèrer 
en syntaxe Forth Les fichiers .DBF qu'utilise dBASE. 585 
limitations au niveau de cette première version doivent 
être CONNUES: 


- LAURE tecture et écriture d'un seut fichier .DBF à 
{a fois 

- seuls Les fichiers .DBF sont traités. | 

- Les champs Libres ou dits "mêmo" qui sont stockés à part 
par BASE dans des fichiers .DBT ne sont pas traités. 

- Les variables dBASE (fichiers .MEM) ne sont Das échan- 
geables sauf par Le biais de fichiers .0BF particuliers. 

= l'indexation {fichiers .NDX) n'est pas utilisée pas plus 
que Les divers fichiers de format d'écrans, d'états, d'éti- 
Ta ou Les filtres d'extraction de donnèes propres à 

- un fichier .DBF pour une One compatibilité doit être 
créé par dBASE lui-même, vide au besoin. ” 

= La structure d'un fichier .DBF n’est pas modifiable. 


dBcook Sous Turbo-FORTH, nous 
fichier ANNUAIRE .DBF SL 
RESSE, 


Pour illustrer L'emptot de 
prendrons L'exemple d'un 
pour ARTE ANA Les champs NOM, PRENOM, À 
COUEPOSTAL, TELEPHONE. 


4) Ouverture du fichier : USE ANNUAIRE 


L'extension .dbf est facultative. Le mot marqueur SESSION 
est créé dans Le vocabulaire DATABASE. IL est suivi de La 
création automatique des mots NOM PRENOM AURESSE CODEPOSTAL 
et TELEPHONE qui permettent d'invoquer simplement Les 
champs qu fichier. 


2) Affichage de La structure : , STRUCTURE 


Ce mot cas au 'OISPLAY STRUCTURE de dB qu renseigne 
sur Le fichier. ichier et La 


. Un à Hu La taille du 
taille de L'en-tête de fichier pour permettre Le calcul de 
L'occupation du fichier: 


taille totaie = Longueur d'en-tête 
+ ( nombre d'enregistrements 

# Longueur d'enregistrement ) 
+ 


3) Consultation du fichier : DISPLAY 


En début de session, tous Les Champs sont actifs et aucune 
condition de sétection n'est imposée: DISPLAY affiche alors 
HR fichier. L'affichage peut être suspendu ou avorté 


L'option RECNOS OFF supprime L'affichage des numéros d'en- 
Hi de RECNOS ON Le rétablit. IL est en outre pos- 
sible de modifier La Largeur d'impression dans La variable 
COLS initialisée à 80 colonnes pour l'écran. 


DISPLAY peut surtout être préalablement paramétré pour 
n'afficher que certains champs 15$U5 de certains enre- 
gistrements répondant à une condition quelconque. 

4) Pointer un enregistrement : 60 


3 60 charge dans Le tampon L'enregistrement n°3. Dès Lors, 
L'enregistrement courant donné par RECORD est 3 et toute 
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opération d'entrée-sortie de donnèes 
enregistrement. 


s'effectuera sur cet 


1 60 et CAPACITY 60 ss Le premier et Le dernier en- 
registrement, CAPACITY délivrant Le nombre total d'enre- 
gistrements. 


Par convention, tes mots agissant 
courant débutent par '[l' : 


4 GO LADISPLAY affiche L'enregistrement 4 
1 6D CIEDIT bdite L'enregistrement 7 


sur L'enregistrement 


L'ordre des AU dans un fichier pus être mo” 
difié par COPY ei PERMUTE qui COple Ou Dermute L'enregis- 
trement courant dans un autre enregistrement qui devient 
lui-même courant: 


4 60 5 COPY copie L'enregistrement n°1 dans Le n°5 
à 60 7 PERMUTE permute Les enregistrements n°2 et n° 


7 


a et PERMUTE ouvrent La possibilité de trier Le fi- 
chier, 


5) Extraire une donnée : () 


toutes Les données DBF sont en chaines asci1: () délivre 
pour Forth La chaine explicite ( --adr,Len) üu champ Cou- 
rant de L'enregistrement courant. Un champ devient courant 
par L'exécution de son nom compilé dans Le vocabulaire à 


L'ouverture du fichier: 


40 60 PRENOM () TYPE 
affiche Le prénom du 10ème record 
CODEPOSTAL () 2 LEFTS TYPE 
affiche Les deux premiers chiffres du 
code postal de ce mème enregistrement. 


Par convention encore, 
rant débutent par 'O) : 


PRENOM ()DISPLAY 
CODEPOSTAL C)DVAL D. 


6} Introduire une donnée : REPLACE 


Une chaîne explicite Forth (aûr,len--) est placée dans Le 
champ courant de L'enregistrement courant. 


* MARCEL" PRENOM REPLACE 
CODEPOSTAL " 75001" REPLACE 


REPLACE effectue un minimum de contrôles et formatage pour 
ne pas SEUL U Es Le fichier avec des données invalides. 
Les champs numériques doivent d15p05er du point décimal en 
bonne position, Les champs dates doivent être sous La f0r- 
me de Stockage DBF c'est-à-dire " 19441223" pour 25112184 
(format AAAAMMJJ pour JJ/MMIAR). te pts des blancs 
à droite pour Les champs QUrS à gauche pour Les champs 
nunériques est assuré par REPLACE. 51 une chaine invalide 
est utilisée par REPLACE, Le champ reste blanc Sans Me5" 
sage d'erreur: Libre à L'utilisateur de filtrer, contrôler 
et'valider ses données d'où qu'elles proviennent. 


Get  REPLACE forment donc La base de L'interface im- 
port-export entre Forth et un fichier .DBF 


Les mots agissant sur Le champ Cou- 


7) Sélection des AU actifs: 
SELECTION SET FIELDS EXCEPT 


Pour Les pure répétitives, certains champs peuvent 
être sélectionnés comme actifs. SELECTION prépare Une 5é- 
Lection en rendant tous Les champs inactifs. SET active Le 
champ courant. FIELDS active tous Les champs. EXCEPT dé- 
sactive Le champ courant. 


SELECTION NOM SET TELEPHONE SET DISPLAY 
affiche le fichier avec 
Les noms et téléphones comme seuls champs. 


FIELDS ADRESSE EXCEPT DISPLAY 
affiche Le fichier sans Les adresses 


de Champs reste active pour toutes Les pro- 
jusqu'à une nouvelle sélection (FIELDS 


Une sélection 
cédures vitérieures 
Bar exemple), 

8] Congition dans une procédure : FOR 
Drocéqures répétitives ne sont exÉCUTÉeS que 51 Le 
vecteur CONDITION détivre un Urapeau vrai. FÜR vectorise 
CONDITION Sur un mot Forth délivrant une condition our 
Chaque enregistrement 


: DIX-PREMIERS RECORD 19 «2 : 
FOR DIX-PREMIERS DISPLAY | 
affiche Les dix premiers enregistrements 


: TEST PRENOM * MICHEL" (3j: : 
FOR TEST DISPLAY 
affiche Les enregistrements où Drénom= "MICHEL * 


Les 


Les mots (): ()>= (}tz ()$ ajoutent des tests simples por- 
tant Sur Le champ courant aux opérateurs chaines usuels du 
Forth. Les conditions sont mixables entre elles et avec {es 
Sélections de champs: 


: PARIS CODEPOSTAL () 2 LEFTS " 75 COMPAREZ 0: ; 

: #DURX * DUR" NOM O8 : 

: TEST2 PARIS xOUR+ AND : 

RECNOS OFF SELECTION TELEPHONE SET 

FOR TEST? 

DISPLAY 
affiche Les numéros de DM : 
des noms contenant "DUR" et habitant Paris, 
sans Les numéros d'enregistrements. 


Une condition reste active DOUr Toutes Les procédures uité- 
IEUrBS, Le mot ALL SUParImE toute condition précédente: 
tous Les records sont alors pris en compte. 


: BELETE 


Cet effacement est une procédure conditionnée par FOR qui 
ne fait Que marquer comme BASE Les enregistrements à 
détruire, 115 sont repérés Dar Le Signe ‘+ en tête d'en- 
registrement. IL faut utiliser La Commande PACK de dBASE 
DOUr réorganiser Le fichier sans Les enregistrements SUp- 
primés, 


FOR PARIS DELETE 
efface Les parisiens de L'annuaire. 


3) Effacement d'enregistrements 


LIDELETE efface L'enregistrement Courant 
3 GO CIDELETE 


[IRECALL Le restitue et RECALL est La procédure de resti- 
tution sur Le fichier. DELETED et UNDELETED fournissent ies 
Conditions ‘détruit et ‘valide Dour l'enregistrement 
Courant. 


: TESTS DELETED DIX-PREMIERS NOT AND ; 

FOR TESTS RECALL " | 
restitue Les parisiens Drécédemment effacés s'ils 
NE S0nt pas dans Les 10 premiers Enregistrements. 


: EDIT 


Cette procédure travaille également en sélection et CDn- 
dition pour entrer des données au clavier. Chaque édition 
{enregistrement peut être reprise avant de passer à (à 
suivante, 


103 Editions d'enregistrements 


FÜR DIX-PREMIERS EDIT | : 
demande L'édition des \Ü oremiéres fiches. 


Les He OEDIT et LJEDIT éditent uñ Champ 


Où ün enregis- 
tremen 


3 60 CJEDIT 
3 GO TELEPHONE (EDIT 


19 Ajouts d'enregistrements : APPEND 


Ce mat entre en édition de NOUVEAUX enregistrements placés 


APPEND-BLANK est La 
vide. 


er fin de fichier. 


primitive d'ajout 
d'un enregistrement SOUS 


12} Procédures veciorisées : PRGCEFE 


24 Puissance Forth permet d'envisager des actions Com- 
Diexes Sur Le fichier. Supposons que Le mOt LETTRE sgit 
défini pour Imprimer une Lettre DerSunnaiisbe à Dartir des 
Champs NOM, ADRESSE pt CODEPOSTAL d'un enre 1Strement, En 
vectorisant Le différé PROCESS, ie mot PROCÉED appliquer à 
Cette action sur tout Le fichier en fonction de :à condi- 
tion en cours: 


FÜR PARIS PROCEED LETTRE 


IMDPIME Une Lettre personnalisée pour 
Chaque parisien, 
Le mot COUNT permet d'afficher Le nombre 


d'enregistrements syr lesquels La dernière procédure 
etffectuée. 


13) Fermeture du fichier .DBF : END 


a êté 


Ce mot ferme Le fichier et restitue Le dictionnaire en ef- 
façant Les mots créés {ors de La session de travail. 


En cas d'erreur Forth, Le fichier est automatiquement re- 
fermé. Il convient alors d'effectuer un FORGET SESSION ov 
Un END (oui peut aussi émettre Une erreur Sans importance) 
DOUT NE Das surcharger Le dictionnaire avec des noms de 
Champs recréés à chaque USE, 


dBCOOK permet donc La Consultation et La maintenance mini- 
mèle d'un fichier dBAGE, IU autorise surtout Le HULE 
ment d'apotications Comoilées spécifiques sur Cette base 
de données, 


COURRIER: DEBU 
Etant débutant en FORTH, je me heurte 4 QUELQUES problé- 
MES. HUSS) je me permets de contacter l'association JEDI à 
Laquelle j'ai adhéré deDULS peu. 
Celà fait un mois que JE ME SUIS Lancé qans 
d'aboré sur ATMDS et maintenant compatible PC, 
La, toute La mémoire n'étant pas aûressabie en deux oc- 
tets, je ne trouve pas L'ordre PERDRE Un de sortir de ls 
Z0n€ Qu FORTH (pour accéder à ä MEMOIre Écran par e- 
xemple). 
D'autre part, comment Drocéder pour appeler à partir du 
BASIC un S0US-programme écrit EN FORTH. Voilà Les deux 
DrObLèMES qui génent mon somme i { | 

Didier BRANDR - 75015 PARIS 
RÉPONSE : 


Les ordres permettant d'accéder 
LC!, LC@, L'et 1@ (équivalents 
ARELERE cine paramètres: 

LC! 


ce Langage, 


à toute La mémoire sont 
de L!, C@, ! et@et 


€ 56ÿ 0 
Seg off LCR --. 6 
N Seg off Li 
5eg off LR ---n 
Qu 5€ et off sont Les valeurs Correspondant av segment 


mémoire et Le décalage dans ce segment. 
D:16 LE 0, décalage 16) est équivaiente à 1:0 
(segment À, décalage 0), ‘un SEQment étant un multipie de 
16 octets par rapport à Tuer absolu: Le décalage 
est Situé dans L'intervalie 0..65535. 

Quant à l'exécution d'un SOUS-Drogramme FURTH depuis 
BASIC, nous ne savons Dd5... Mais P6t-ce vraiment utile? 


Exemple, L'adresse 


Avec de ne PP UENEE En FORTH, vous vous Dasserez trés 
bien de BASIC. 

COURRIER: D Ne rt, 
Voici en vrac quelques Questions qui font patiner quelque 


peu mon HU en FORTH: 

* Comment décompresser un programme (METH8S.BQK) sur 
AMSTRAD, quand l'étendue ne tient Das Sur une disquette? 

* J'ai appris que RAPID-FILE pouvait PECUpÊrEr des fi- 
Chiers d'autres applications, développées SOUS JBAGE entre 
PR quel est ce format?) Alors comment ac- 
€ r 16006 RTE 
PAUL out LICE carattere ar TDS çà Le ALTÉE Bol 


J'imagine qu'on peut récupérer Le pointeur ëur un biüc, 
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parcourir Le bloc, passer au suivant, El ainsi de suite. 
Mais je n'ai pas trouvé Le HE k ne 5415 pas 51 
cest seule solution, ni La plus élégante, Alors comment 
aire? 

x pourrai-je avoir La carte mémoire du VatkSFORTH? Où 
sont Les registres qui contiennent IP, SP, RP?. 

Christophe BELLE - 38400 ST MARTIN D'HERES 

REPONGE : 


A La première, une seule solution,  ÉCOMPrESSET META8O.BQK 
sur un PEW avec disque virtuel>180K, couper Le fichier en 
deux et Le remettre sur disquette en deux parties. Pour Les 
détails, se reporter au manuel CPIM. Mais peut-être un au- 
tre adhérent y est-il arrivé et peut-être vous portera 5e- 
cours: appel aux bonnes volontés. 
Concernant RAPID-FILE, IE ne L'ai quére manipulé et ne peut 
donc confirmer, Si que HA veut nous faire un EXpOSÈ Sur 
Les manips vicieuses de RAPID-FILE. Quand à La manipulation 
de fichiers et de Lecture caractère par caractère, peut- 
être avez-vous trouvé réponse à cette PH dans des 
récents articles de JEOI: fichier UFILES.FTH et DBCOOK.FTH. 
Enfin, concernant La carte mémoire de VolkSFORTH, 51 quel- 
qu'un l'a, il nous La COMMUNIQUE a. 
COURRIER : ARBRES B .. 

Je viens de recevoir différents RAITE américains sur Le 
FORTH, notamment Les FORML PROCEE INGS 1985 et 19386, et 
gans ces deux ouvrages, it v a un article de Mr Martin J. 
TRACY sur un micro LISP en FORTH, et il fait référence à un 
article qu'il à publié dans Le ROCHESTER 1986. Si quelqu'un 
pouvait me faire parvenir La DSC intégrale de cet 
article, il serait bien aimable de me Le faire parvenir à 
mon adresse, Je l'en remercie d'avance. | 
Je cherche LL qui. pourrait neue clairement 
Les arbres B pour La gestion des fichiers in exés, et j'al- 
merais connaitre Les avantages et inconvénients de Ce 5y5- 
tème par rapport à L'organisation ISAM. | | 
6i des us en C où en FORTH pouvaient m'être fournis, 
cela serait l'idéal. | 
Egalement, je suis actuellement en train 0e développer une 
gestion de fichier (BIBLE) de textes comprenant des for- 
mules pré-établies pour des Route (notaires, avocats, et 
autres.….). Pour faciliter La Liaison dans mes fichiers de 
textes types, j'ai eu l'idée de coder La gestion de La 
Liste AA ou suivante de La manière ci-après: 

= fichier codé sur 128 octets, 80 pour Le texte, Le reste 
pour Le nom du paragraphe, La Ligne de paragraphe, Le type 
de texte, et ensuite quelques octets pour des déveLoppe- 
ments ultérieurs, et à L'intérieur, j'ai un chainage Sur 
FOnpeAl ALTER précédent et suivant, 

- 5] Ut RUE en qusetion à, pour exemple: 

pour précédent: 28562 
: pour Suivant : 52456 
je code sur 5 octets Les deux adresses en LES mixant Sous 
orme hexadécimale 25 82 54 6% 26. Mais he des problèmes 
pour faire La conversion dans ce sens et dans Le Sens Con- 
traire, il est ici précisé qu'il n'y à pas de Lettre A, B 
C, D, É etF dans ces adresses, Le dernier enregistrement 
étant sagnalé par FFFFE. nn | 
Je désirerai que quelqu'un puisse m'apporter 585 Lumières 
pour pouvoir manipuler Les octets de ou à ce que je 
puisse pouvoir opérer sur 1 à dix octets de Long, notamment 
je désire porter cette utilisation en FORTH et C. 
Jean-Marc COURET - 9, rue Racine - 83000 TOULON 


{extrait:) UPC wirkt nicht auf dir deutschen Buchstaben d, 
auf diese Buchstaben 


ist für elle da. 
Einbezienung. : 
Fred BEHRINGER - D-8000 MÜNCHEN 40 
TRADUCTION {Versetzung): NS 
PC ne traite pas Les caractères allemands à, à et U. Nous 
ne pouvons pourtant pas NOUS passer d'eux, IL serait pour- 
tant utile que ces caractères puissent être convertis par 
UP. Soit, Les américains ignorent Leur existence. Forth 
est fait pour tout Le monde. Aussi pour nous. de plaide 
pour une modification, 


REPONSE: 
IL est vrai que N1 
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F83, ni TURBO-Forth ne traitent Les 


caractères accentuës d'origine étrangère. Et dieu sait 
s'il y ena encore plus en français qu'en allemand, La 
modification de UPC est somme toute mineure et je profite 
de votre courrier pour Lancer un challenge: dois un 


nouveau UPC tenant compte de votre suggestion, À con- 


vertir: NN ; 
jdaééeiliôuu € pour Les français 
en RAEEEIIOUU 
où ,. É 
à ob pour {es allemands 
en AOU 
CR 


cl pour Les norvégiens 
en À 
au À 
ñ pour Les espagnols 
en NN 
ou à 
2 FORT ee mens 
| COMPILATEUR BILINGUE: FORTH 79 et 83 


Par Mr KERJEAN 


Pour que tout Le monde puisse parler Le même Lrqene Le 
FORTH 83, voici 5a définition, à partir du FORTH 78. 


A ceux qui veulent conserver des programmes en FORTH 79, 
il suffit de mettre Les nouvelles définitions dans un vo- 
cabulaire particulier en écrivant: 


VOCABULARY FORTH-83 


DEFINITIONS SUPPLEMENTRIRES: 

Pour rendre ces définitions plus générales b 
et plus compactes, 11 a été défini trois lypés de dé in- 
tions: des constantes du compilateur, des abréviations, et 
des définitions couranent employées, Les voici: 


plus lisibles 


4) constantes du compilateur: 
#D Longueur d'une cellule, en octets, 
-5 incrément d'adresse pour passer d une cellule 
de La pile de données à La précédente, 
-R idem, pour La pile de retour. 


2) abréviations: 
abrév. expressions 

i ; IMMEDIATE 
[) [COMPILE] 
JL LITERAL 
cie IF 
(} 
}- 


Ÿ OVER 


La parenthèse que à être remplacée par L'accolade, qui 
ne figure généralement pas Sur Les machines à écrire; en 
mise au point de programme, il est souvent commode d'in- 
ner spUASnTenent du code en Le mettant entre paren- 
thêse; il vaut donc mieux minimiser Les ) . 


3) mots supplémentaires 


IL s'agit de CASE, OF, ENDOF, ENDCASE ainsi que ASCIT, 
d'usage courant et qui seront utilisés par La suite. 


CASE dépose un simple marqueur. 

OF et ENDOF sont équivalents à IF et ELSE. | 
ENDCASE résout Les références aux différents ENDOF jusqu'à 
(a rencontre du marqueur déposé par CASE. 


ASCII dépose Le code ASCII du premier caractère du mot qui 


Le suit; en compilation, il est compilé comme un Litéral. 


DEMARCHE SUIVIE 
A partir des documents existants: 


- définition du FORTH 83, 

- définition du FORTH 79, 

- articies déjà parus, indiauant comment réécrire ges 
proorammes écrits en FORTH 79. 


Les définitions faciles ont été écrites, puis celles moins 
faciles; 11 ne restait pius alors que deux: 


WORD dont La définition faisait appel à ENCLOSE, défini 
En assembleur; 50n action exacte à été retrouvée à partir 
de L'état de La pile avant et aprés ENCLOSE, 


LEAVE: sa définition à Longtemps paru impossible à écrire 
sans une refonte complête de DO et LODP. La solution a été 
trouvée en écrivant, sur papier, l'équivalent exact: il 
suffit de faire suivre LEAVE de O0 IF, et de résoudre par 
une Série de THEN, Les références à IF. Le mot LEAVE a donc 
été créé, qui: 


- dépose 0 Sur La pile, 
- nettoie La pile retour, avant d'appeler 
- LEAVE qui rend égaux Les deux indices. 


LEAVE), incorporé à LOOP et +#L00P, résout Les références à 
LEAVE. 


Le mot IF dépose, outre l'adresse de destination, un mar- 
queur, spécifique du compilateur. Pour te récupérer, il au- 
rait êtb possible de Le faire par: OUP ROT ROT. 


IL est plus court de passer par al pile de retour, La Lec- 
ture se fait au cours de La définition de IN1G. 


LEAVE dépose Le marqueur de IF, modifié, et LEAVE» Le réta- 
blit, avant d'appeler La partie exécutive de THEN. 


Quand, au cours d'une définition, on écrit dans La pile de 
retour, it faut être sûr qu'elle soit bien rétablie avant 
La fin du fiot d'entrée, BUFFER, ou tampon de ctavier 
sous peine de surprisell! 


DiFFICULTES RENCONTREES 


Outre celles, prévues, déjà mentionnées, d'autres ont été 
rencontrées tout à fait ailleurs que prévu: 


- RQ Le mot : RO R ; dépose simplement son adresse de 
retaur! sa définition aurait pu être : RO R R) GWOP 5R ; 


Comme 11 faltait définir 1‘, it est ous court d'écrire: 
: ll; : Re; 


- [Pet Leur définition paraissait évidente, mais 
l'exécution d'un tel MOT était souvent “surprenante”: ‘ 
avait donc été défini à partir de -FIND; Le problème n'a 
êté bien résolu qu'après avoir vérifié toutes Les défini- 
tions, dont LITERAL, qui, en FORTH 79 ne s'exécute qu'en 
campilation. 


= LERVE C'est en fait un branchement vers Le premier 
LOOP ou +L00P rencontré. L'adresse de résolution peut dif- 
ficitement être mise sur La pile, car ce branchement s'en- 
chevêtre avec Les imbrications IF, SEGIN et DO. 


Elle a été mise en pile RETOUR, mais ta mise au point du 
mot à été difficite; tous Les moyens de mise au point ont 
êté is dont Certains seront exposes par La suite, 
c'est à dire: 


- interprétation des messages d'erreur, 
- impression des piles données et retour 
- décompilation, | 

- Compliation en adresse fixe. 


Cela n'a pas suffi, il à fallu en utiliser un autre, l'heu- 
Fistique, c'est à dire Les essais et erreurs qu e5t trés 
déconseiltée par ailleurs, mais parfois in 1Spensable. 
néanmoins, aprés une journée de mise au point, émailtée de 


nombreux Fechargements, Le mot LEAVE était au noin*. 


CONCLUSION 


Le Langage FORTH est un Langage aux possibiiites étonnan- 
tes: une mise à jour du dictionnaire, portant sur 48 mats, 
a Du être écrite en 32 Lignes de 64 caractères, en n'uti- 
lisant que Les ressources propres du Langage! 


LISTING: 


: : 1 CCOMPILET ; IMMEDIATE : IMMEDIATE 
: LITERAL COMPILE LIT , :1 

: [7 CCOMPILET (COMPILE) ;1 

: JE LITERAL I 

: VARIABLE O0 VARIABLE ; 

: * OUP ; 


t 
' 


CR WAP ; 

TIB @ CONSTANT TIB 
VARIABLE SPAN 

: V OVER : 

: LU DROP : 

0 2 * CONSTANT +0 
VARIABLE ATIB 

; ne XUR : 

= CONSTANT -D 
13 ENUS : 


! UMx Ur : 
PE EE à 
+0 CONSTANT -5 


» l; 
+D CONSTANT - 
5 © € MINUS ; 


EE de 

: RQ I' ; 
: UC UX MINUS ; 

! UC: 

: NEGATE MINUS : 

: DNEGATE DMINUS : 
: BODY +0 + ; 

t DLINK -0 +: 

: NAME BOY NEA : 
: 20) IF :1 


: LINKO #0 + : 
: NAME) PFA CFA : 
: {} L} ELSE :1 
: CREATE (BUILDS : 
: DEPTH SPR 60 @ : - -6 / ; 
: }- [I THEN ;1 
: PICK + -G x GR + G ; 
: ROLL OR R PICK SP@R -5 # + R) 4 0 
DO QU -5 + 1-6 - LpgPp Lt 11 : 

: ABORT 50 @ SP! QUIT : 
: STI STATE @ DR STATE ! EXECUTE R) STATE : ; 
: 2OUP -DUP : 
t L'L "U CFR IL -1 67) 

D HÈRE VU + #1; 
DIN IN ; 
: COMPILE R? ” #D + 
5 ("D 0 STI -D + 
: (ABORT") 

?C R COUNT TYPE ABURT 

{) R) COUNT +R  }- : 
: ABORT" COMPILE (ABORT") 

34 WORD HERE C@ 1# ALLOT :I 
: EXPECT V VU EXPECT AUDR R 1- 

BEGIN 1+ * C@ 0- 

UNTIL R) lt, 
: € 29 WORD HERE COUNT TYPE :: 
: EXIT COMPILE ;6 :1 
: WORD : HERE DR OP ! WORD R? OP ! : 
: SAVE-BUFFERS FLUSH ; 


: INTQ BLK 
pu À ] BLK @ BLOLK 


RE, ; 


TED 46 Mai 1986 
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- FIND RAR IN @OR IN - in ? -FIND R> IN ! 
2€ RD OUR CFA RD G4 AND -32 1 %+ Ü} Ro 0 - ; 

: DO R? 108 ?R DR [] O0 I 

: (LEAVE) R) LEAVE DR 0 : : N 

: LEAVE COMPILE (LEAVE) R) LI IF 5 DR OR OR :1 

: LEAVE) RD RD BEGIN I I RL - 
WHILE Ro R> ! [] THEN REPERT Ro 108 - ABORT' LEAVE?" 
RR : 

: LOOP LEAVE) [1 LOOP :i 

: +LO0P LEAVE» C] +LO0P :1 

: CMOVE) DRV-R1- " [' 
R) DROP R) DROP ; R? 


+00 1E€@ I J+C! -1 #L00P 


PROGRAMMATION EN LANGAGE ORIENTÉ DBJET 


gar Terry RAYBURN 
adaptation Marc PETREMANN 


Systèmes: tous systèmes F3 


On parle depuis peu de Nouveaux nes ceux de cinquième 
génération travaillant avec des objets, tels SMALLTALK ou 
NEON. Et si FORIH Leur a donné de l'inspiration, 115 peu- 
vent contribuer à faire evoluer FORTH. 


UNE APPROCHE DES LANGAGES ORIENTES OBJET 


Le concept de AU orienté Le semble à priori très 
confus, mais en RATES , On peut Le greffer sans 
difficuité en FORTH. C'est à partir de deux articles, Le 
premier "MULTI-D0ES>" de A.G60PPOLD, Le second "METHODS) 
OBJECT-ORIENTED EXTENSIONS REDUX* de Terry Rayburn, parus 
dans Vierte DIMENSION que est en RFA ce que JEDI est en 
France...), que cette idée s'est imposée. 

fout ceux pratiquant FORTH savent que l'on traite des 
données de différentes nature: 


données 32 bits { 

octets : 

LE de caractères 
etc... 


données 16 bits (signées ou Qu 


Liste pouvant étre étendue à des vecteurs, matrices, bits, 
tableaux multi-dimensionnels, etc... 


prenons Les trois premières 
actions Les plus fréquemment 


Pour illustrer 
catégories et Les 
employées: 


Le propos, 
trois 


51 défini 


octet 
16 bits | @ ere 
32 bits èl 2@ 2? si défini 


L'opération de Ur peut être décrite génériquement 
gar un mot quelcongue PUT, STORE, AFFECTE... et pouvant 
s'appliquer à un type quelconque de données: 


stockage empitage affichage 
€! e C@ : p : 


octet adresse PUT 
16-bits adresse PUT 
32-ÿits adresse PUT 


{au lieu de Et) 
{au Lieu de 1) 
(au iipy de 21) 


opérateurs dfe 


ce qui réduirait considérablement Les 
2! devenant des 


magipulation de donnèes, Les mots C!, let 
primitives. 


Pour arriver à ce résultat, on affecte un numéro d'ordre à 
chacune des actions prèvues sur Les objets considérés: 


action 1 pour GET en remplacement de CR @ 28 

action 2 pour PUT en remplacement de C! ! 2@ 

action 3 pour VUE en remplacement de C7? ? 2? 
{sous réserve de définition de ©? pt 2?) 


et on définit chaque type de données, par une séquence de 
La forme: : 
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: HALE CREATE Q C,  D0ES> EXIT Cù C! C? : 
: INIEGER CREATE O0, D0ES) EXIT @ : 7 
: DOUBLE  CRERTE 0 , 0 , DOES) EXIT 2@ 2! 27 : 


Bien entendu, 11 


4 


faudra discriminer 
signés pt 18 Dits non signés: 
vous tdis5e ce sain. 


Les ME 16 bits 
idem pour Les bits. Je 


L'apparition du mot EXIT placé systématiquement après 
DOES) revient à définir un nouveau type de mot de 
définition, Reprenons La Syntaxe définie par Terry 
Rayburn: 

METHOD: définit une action utilisée en interprétation 

[METHOD]: définit une action utitisée en compilation 
seulement 

: (mot-classe) 

CREATE (paramètres) 

METHOOS) Csérie-d'actions? ; 


et dont Les définitions sont Les suivantes: 
\ Cette partie est valable pour tout système F82 
: METHOUS) 
(COMPILE O0ES> COMPILE EXIT ; IMMÉDIATE 
(METHOD): 


D]: 
CRERTE 2% , IMMÉDIATE 
DOES) HER 2-@@ 
5 + GHAPPR +R ,: 
: METHOD: 
CREATE 24, 
D0ES) @ OVER 2- @ 5 + + PERFORM ; 


On définit Les types d'actions 
interprétation et en compilation: 


0 METHOD: GET 1 METHOD: PUT à METHOD: VUE 
UE RENAN 1 METHOD): CPUTI 2 CMETHOD): 


utilisables en 


[GET] 


Exemple: 


: C? C@. : 

: HALF 
CREATE 0 €, 
METHODS) C@ C! C? ; 

HALE CARACTERE 

7 CARACTERE PUT À affecte 7 à L'objet CARACTERE 
CARACTERE GET À empile Le content de Fuel 
CARACTERE VUE | affiche Le contenu de L'objet 


et en compilation: 


: (mot) . 7 CARACTERE LPUT) ... ; 
Le transfert du contenu d'un objet & bits vers un objet 16 
bits sera de La forme: 


: INTEGER 

CREATE 0 , 

METHODS) & ! 7? ; 
INTEGER BONNEE 
CARACTERE GET DONNEE PUT 


et mieux, mélanger Les opérations sur Les données: 


CARACTERE GET 
DONNÉE GET + DONNEE PUT 


à condition de redéfinir Les opérateurs pour qu'its 
traitent invariablement des données de type différent. 


RPPLICATION À LA GESTION DES PORTS GERIE 


ES spécifique F83 MSD0S Laxen et Perry ou Turbo- 
grth. 


Pour illustrer ce qui me semble un concept nouveau, au551 
nouveau que l'a êté $SEXECUTE ou ONLY..ALSO, on à définit 
toutes Les fanctions de gestion du port de communication. 


LISFING: 


& partir d'ici, te DrOQPamme Concerne exclusivement 
Les matériels IBM PC,XÏ,AT et compatibles 


\ 

de 

VARIABLE PORT.ADRESS , 

: COMT | affecte L'adresse du port série 1 
JF8 PORT. ADRESS : : 

: COM? 1 affecte l'adresse cu part série ? 

2FB PORT AGRESS ! : 


t +P {3 --- àdr) | délivre adrP55e port serie + gffspt 
PORT .ADRESS @ + : 


1 décaiege de bits 
CODE (SH (nm--- 3) 
CX POP AX POP 
BEGIN CX ROR 8000 # CX TEST 9 
WHILE AX SHL 


REPEAT PUSH  END-CODE 
COQUE 26H (nm---n') 
CXx POP EX POP 


BEGIN CX ROR 8000 # CX TEST (- 
WHILE AX SHR 


REPEAT PUSH  END-CODE 
DECIMRL 


U Type de données 8 bits 
: GRITS --- nn} 
20 +P PC OVER AND GYQP 36H : 
: IBITS (an --- 
26 2DUP +P PC@ SWAP -1 XOR END »R 
DR OUP DR (SH R) AND R: SWAP &) OR SWAP +P PCI : 


5 BITS ( à ---) 
@BITS , ; 
875: (man ---) 
CREATE , , 
METHODS) @BITS IBITS .BITS 
l'Registres de validation d'interruption 
1 4 BITS: EDAI | donnée TE et prête 
2 1 BITS: ETXHREI | registre d'attente 
ide transmission vide 7 
4 1 BITS: ERLSI | Caractère reçu avec condition 
1 d'arrêt ou d'erreur 
8 4 HITS: EMGI Unodification dans L'état du nodem 
| Registres d'identification d'interruption 
F2 ts. -IP V0 : condition d'interruption 
Len attente | 
i Ÿ : aucune interruption en attente 
5 2 BITS: [ID UOTet 02 : identification des 
Linterruptions 
lRegistres de contrôle ce ligne 
3 1 BITS; WLS Ubits O'et !, Longueur cu Caractére 
| 00 :5bits 
À 01 :6obits 
| 10 :7oits 
FLE dits 
4 3 8ITS: 578 Uoits d'arrêt, 
| Q : 1 bit d'arret 
| Ts 5 bit si Longueur 
arac 


| è 
l caractere = 6, 7 où 8 bits 
L'Hit de parité | 
| Ÿ : aucun bit de parité 
| 1: parité imposée 
: EPS À 
| 


16 3 BITS type de parité 
: Derité impaire 
Î 1 : parité paire 
32 3 8ITS: STICK PARITY | blocage de parite 
| Ÿ : hors service 


i © 51 Les bits 3 et 4 vatent 1 


4 
Üparité toujours 0 


Î 51 b3 = 1 et 4 = Q, parité 
| toujours | 
64 3 BUTS: SET.REM À générateur de ‘break * 
Î : hors Service 
î : Sortie UART Iorcée au 9 
: : L'logioue _— 
128 3 BITS: DLAB LOLAB, Dour accès av diviseur de 


| frequence 


i nine état de Ligne 
15 BITS: OR l'un caractère pst disponible 
2 5 BITS: DRE | erreur ALP 
45 BITS: PE l'erreur de parité 
8 5 BITS: FE l'erreur d'encadrement (bit d'arrèt) 
15 5 BITS: 8] 1 détection de “break' 
32 5 BITS: THRE i registre d'attente de 
Utransmission vide 
54 5 BITS: TGRE L'registre de décalage de 
transmission vide 
URegistres de conirûte ce modem 
1 4 BITS: DTR l'ordinateur pret 
2 4 BITS: RTS | demande pour émettre 
4 4 BITS: QUT1 À OUT 1, sortie 1 
8 4 BITS: OUT? 1 OUT 2, sortie ê 
16 4 BITS: LOUPBACK | si Ce bit eSt mis à ?, ia sortie 
U Série est envoyée 
Usur L'entrée, Sert pour autotest, 
| feistres état du modem 
1 6 8ITS: DCTS L'DELTA" prêt à émettre 
2? 6 BITS: DDSR U "DELTA" modem prêt 
4 6 BITS: TERI | DELTA" détection de sanner1e 
5 6 BITS: DRLSD 1 "DELTA" connexion établie 
16 6 BITS: CTS | prêt à émettre 
32 6 BITS: DSR | modem pret 
64 6 BITS: RI 1 détection de sonnerie 
128 6 BITS: RLSD l connection établie 
\ Données en Lecture seule 
: ŒROR (a ---n) 
@ +P PCG : 
-DEFINED 


| “@ROR EMIT : 
: READ.ONLY: Ü n ---) 


2DUP ! 
: NOR ( 


: MRITE.ONLY: On --) 


© 1 OLAB (PUT) espoir OLAB [PUT) ; 
SR ( à } 


: SPECIAL: (n ---) 


See — 


ABORT" METHOD non définie Dour Ce type de données * : 
ROR ( à ---) 


CRETE , 
METHODS)  GROR -DEFINED .ROR : 


Données en écriture seule 
WOR { na ---) 


2+ @ +P PC! ; 
à ---; 


CRERTE 5 ,, 
METHODS) @ !WDR .W08 : 


Données spéciales 
GR { à --- 


Ë 


n 
1 DLAB [PUT]) @ #P P@ O DEAB CPUT) : 
IR Un } 


BE . 


CREATE , 
METHODS) @GR 16R .cR : 


HSE restants 


REBD ONLY: RX \ registre de réception de données 
WRITE.ONCY: 7x | regsitre de transmission de données 
SPECIAL: DIVISOR.LATCH | diviseur de fréquence pour 


lcontrôle de La vitesse de transmission 


nn du 6259 
rie 


: BAUD ( 


Ses 


DR 1843200. 15 MUSMOD R> MID 


OIVISOR.LATCH [PUT] 2BROP : 
CONSTANT EVEN \ parité 
CONSTANT NO 
CONSTANT ODD 
PARITY { n ---) 

2 IMOO EPS [PUTI PEN [PT] : 
BITS ( n ---) 


9 = WES EPUT) : 
ES 


Que (elne " PUT : 


: RESET (n ---) 
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FALSE SAP PUT ; 


| Routines d'auto-test du 8250 
: AIT Ç reg --- fl) 


32000 © 
O0  OUP GET 
IF Oz LEAVE THEN 
LOOP 
QUP IF  LOOPBACK RESET THEN ; 
: SELF,TEST ( ---) 


DIVISOR.LATCH GET) OUP  1+ QUP DIVISOR.LATCH [PUT] 
DIVISOR.LATCH [GET) = NOT ABORT' port non valide * 
DIVISOR.LATCH CPUT] LOOPBACK SET D 


1024 0 
D0 1C@ OUP IX [PUT) _. 
THRÈ WAIT ABORT' Transmission défectueuse " 
TRE WAIT pa 
ABORT" te décalage transmission défectueux 
DR WAIT ABORT' Donnée non reçue * 
RX (GET) = NOT IF 1+ THEN _ 
LOOP LOOPBACK RESET . .* 11024 erreurs de tran5m15510n ti 


ÿ 


\ Exemples d'initialisation du MINITEL (=) PC 
\ COM1 1200 QUO 7 BITS EVEN PARITY DIR SET RTS RESET 
{ER .€ COM1 auto-test en cours ) SELF.TEST 


E0F 4 FIN DE LISTING 


La gestion du port de communication pouvait être réalisée 
de plusieurs maniéres: 

- en code machine; maintenance 
mise au point Laborieuse: 

- par gestion des anterruptions; EN 
aberrations de gestion du port série 5e produisatent 
donnaient pas toujours te résultat escompté; , 

- entièrement en FORIH ‘classique; prolifération des 
opérateurs et des primitives. 


et tisibilité difficile, 


pratique, des 
et ne 


La solution adoptée ic consiste à reprendre Là Liste de 
TOUS Les ASTENLE et Les indicateurs du 8250 et à définir 
des classes d'objets pour chaque type de données: 


- BTS: bits en cecturefècriture 

- READ.ONLY: octets en Lecture seule 

- WRITE.ONLY: octets en écriture seule 

- SPECIAL: adresse (diviseur de fréquence) 


La Lecture de OTR (DATA TERMINAL READY) est 
accessible très simpiement par DTR VUE. 


ainsi 
L'envoi d'un caractère vers Le port de communication, aprés 
initialisation, est de La forme: 

ASCII A TX PUT 


INTERFACAGE AU MINITEL 
Systèmes: F83 Laxen et Perry MSD0S et TURBO-Forth 


Si vous disposez d'un câble de Liaison MINITEL-PC (sinon je 
G 


Vous | encourage), voici des définitions RL 
gérer La communication entre Le PC et Le MINITEL. 
LISTING: 
: MINITEL ( ---) 
COM1 er. 
1200 BAUD 1 communication à 1200 bauds 
7 BITS \7 bits de données 
EVEN PARITY \ parité 
DTR SET 
RTS REGET à | 
EOAI SET \ indicateur donnée reçue et prête 
: RS UC ---) 
TX LPUT] 


y envoi caractère vers registre de transmission 
BEGIN THRE EGETI eo | 
| attente registre de transmission vide 


JEUN 4S -Mear 19898 


VARIABLE ACCENTS 
: (RSEMIT) 
QUP 7F ) 


IF 
ACCENTS @ 
IF | transcodage 
CAS 


ACCENTS OFF 
{ c ---) 


ASCII à OF 19 RS 41085 61 
ASCII à OF 19 )R5 43 RS 61 
ASCII à OF 9 2RS 42 RS 65 
ASCII ê OF 19 RS 43 RS 65 
ASCII à OF 19 RS 4T0RS 65 
ASCII Ï OF 199R5 4385 69 
ASCII à OF 19 )RS 43 )RS 6F 
AGCIE ü OF 19 RS 413RS 75 
ASCII à OF 19 2RG 43 RS 75 

OF 1B)RS 4B2RS 63 


\ traitement des accentués 


en séquence car. 


, non accentués 


accentués 


RS ENDOF 
RS ENDOF 
RS  ENDOF 


ASCII à OF ASCII a ?RS  ENDDF 
ASCII à OF ASCII à DRS ENDOF 
ASCII 6 OF ASCII e )RS ENDOF 
ASCII ê OF ASCII e »RS  ENOOF 
‘ASCII è OF ASCII e ?RS ENQUF 
ASCII 5 OF ASCII i RS ENDOF 
ASCIE à OF ASCII 0 RS ENOOF 
ASCII ÿ OF ASCII u RS ENDOF 
ASCII ü OF ASCII u )>RS ENDUF 
ASCIE ç OF ASCII c )RS ENDOF 
ENBCASE 
THEN 
ELSE 
)RS 
THEN ; 
DECIMAL 
RSEMIT € € ---) ; 
DUP  (EMIT) \ envoi caractère vers console 
(RSEMIT) ; \ et également sortie série 
t RGKEY? € -—- fl) | 
DR [GET] 1: \ cherche 5i caractère reçu 
@ OR IPUTi ; 
: Han 270) 
OR GET) 1: on teste 5i donnée reçue 
(KEY?) OR \ou si appui sur touche clavier PC 
UNTIL | 
RX [GET \ empile caractère reçu 


RSCHAR) 
JOUP CEMIT) + CI 1+ : 


: LOGIN 
{'] (rschar) i5 char | 
\ à n'utiliser qu'avec terminal local 
L'} rskey? is key? 
L'Jrskey 15 key 
{'} rsemit 15 emit ; 


6 

} (char) 15 char 
] (key?) is key? 
] €key} 15 Key 
] Cemit) is emit 


Ses. <e 


L 
{ 
[ 
{ 
l 


\ version code machine de RSEMIT 
\ CODE DRS À € ---) 

\ PORT.ADRESS 5 + # dx mov 
À BEGIN 

| dx at in 20 # al test 
6e) UNTIL 
\ 

À 

\ 


PORT.ADRESS # dx mov 
ax POP \ charge registre 
U dx out Let on L'envoye 


d 
NEXT END-CODE 
i FONCTIONS DE COMMUNICATIONS TELETEL 


. (EMET") adi Len ---) \ transmet 


\ registre d'état de Ligne 


al avec octet 


chaine vers port 


HEX 


\ prélève vecteur de EMIT 


LITERAL € 1e ER 
\ rempiace par (RSEMITI 


['] CRSEMIT) IS EMIT 
#3 COUNT 2DUP + 5R FYPE 
| envoie Chaine de caractere 


iS EMIT : \ restaure vecteur 

: EMET*  { --- cchaines en compiiation où interprétation) 
STATE G e 
IF COMPILE (EMET') Ÿ compile (EMET") 


Î # 
ELSE ('] EMIT BODY GUPR+&0R 
\ prélève vecteur ge EMit 
L'J CRSEMITJ IS EMIT remplace par (RSEMIT) 
36 PRRSE TYPE  L'envoie chaine de caractère 


R) IS EMIT \ restaure vecteur de EMI? 
THEN: IMMÉDIATE 
HEX 
! TQUERE (On --- mot» en compitation) 


D9ES) @ 13 RG RS : 
4t TOUCHE ENVOI 
42 TOUCHE RETOUR 
43 TOUCHE REPETITION 
44 TOUCHE GUIDE 
43 TOUCHE ANNULATION 
46 TOUCHE SOMMAIRE 
47 TOUCHE CORRECTION 
48 TOUCHE SUITE 
49 TOUCHE CONN/FIN 
DECIMAL 


\ Procédures spéciales 
HEX 


: CONNEXION € ---) 
1BODRS J9RS GB RS 


49 TOUCHE CXF 


: DÉCONNEXION { ---) 
1BODRS 39 RS 67 3RS 
DECIMAL 


: ATTEND ( n ---) | attente de n secondes 
DO 1000 MS LOOP : 

45 FUDGE 

DECIMAL 

EOF | Fin du Listing 


MINITEL initialise Le port de communication COM* à 1200 
bauds, 7 bits, parité E, DR On, RTS off et valide 
l'interruption de signalement de réception de caratère. 


RS injecte un code ASCII vers te port de communication. 
Exemple, 65 DAS affiche ‘N° sur te Minitel; 12 RS efface 
L'écran du MINITEL. 
(RSEMIT) envoie un caractère avec t'anscodage des 
Caractères accentuês en fonction de L'état de La variable 
ACCENTS; ACCENTS ON transmet es Caractères en forma! 
accentués ; ACCENTS OFF transmet Les caractéres accentués en 
équivalents non accentués. 

RSEMIT fait un eu doubie empioi avec (RSEMIT); envoie ur 
Céractère vers Le port série et vers L'écran, 


RSKEY? dépose un flag "vrai" si un Caractère à ête reçu par 
Le port serie. 


RSKEY dépose Le code ASCII du caractere Peu Sur Le port 
série. Identique à KEY, mais ionctionne seulement avec ie 
port sbrie, ‘ 


(RSCHAR) insertion et traitement des caracteres reçus par 
te port de communication. Revectorise CHAR. 


LOGIN donne La main au MINITEL en mode 1iocal. Pour 
en La prisé en mair, taper LOGOUT depuis Le 
MINITEL. 


Ensuite, une série de fonctions permettent de 5e connecter 
dun Service TELETEL (3615 SAM JEDI pour exemple...) ot de 
Passer 565 Commandes et ses chaines de caractères depuis 1e 
FE du PC, Je ne détailierai pas ces mots à l'exception 
e: 


EMET" envoi d'une chaine de 


caractères vers 
mode Local où connecté: 


La Chaine de caracter 


FD © 


Compilation. fittention, La décompilation 
contenant (EME) perturbe l'affichage. 


d'une définition 


Les autres fonctions sont: 


ENVOI RETOUR REPETITION 
GUIDE ANNULATION SOMMAIRE 
CORRECTION SUITE 

CGNNIFIN ou CXF 

CONNEXION DECONNEXION 


ATTEND ( n ---) | attente de n secondes 


Rfin de vous Imprégner de L'intérèt des fonctions définies 
précédemment, Voici comment ue du temps (et de l'ar- 
gen) à {a Connexion sur SAM*JEDI our accéder au télé- 
Chargement de programmes: 


{programme SAMJEDI d'accés à SAM#JEOT } 
CONNEXION 


3 ATTEND 
EMET" SAMYJEDI" 
ENVO! 


15 ATTEND 


EMET* "(ici votre gseudo) 


En pratique, compilez Les définitions de La 


Liaison série, puis tapez: 
: MATL MINITEL HELLO : 
‘ MNTL IS BOOT 
SAVE-SYSTEM MINITEL 


Ensuite, sous DOS, où dans un 
Ligne: 


MINITEL INCLUDE SAMJED: 
aprés avoir comaose Le 3615, Votre manitel se connectera 


automatiquement at serveur puis à L'option TELECHARGEMENT 
Où menu génbral, 


de gestion 


fichier batch, tapez Là 


Le présent programme est disponible sur SAMEDI er 
téléchargement sous Le nom RSINIT.FTH et sera intégré av 
modute 4 de TURBD-Forth. 


par M,ZUPAN 
Système: TURBO-Forth 


Diffusion: 3615 SAMEJED: et orochainement module Mé de 
TURBO-Forth. 

LISTING: PIP.FTH 

HEX 


l'Primitives MG-DDS de redirection des E/S 


CODE (FROM) OC hndi -- nndi FE ) l'duptique un ticket 
U 


BX POP 45 # AH MOV 21 INT AX PUSH 
U= IF 0 # AX MOV THEN 1PUGH END-CODE 
CODE 110) € hndifrom nndlta -- FE) à copie un ticket 
CX POP  BX POP 45 # AH MOV 21 INT 
Us IF O4 AX MDU THEN 1PUGH END-CODE 
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DECIMAL 


à CONSTANT KBD \ ticket clavier 

4 CONSTANT CON \ écran 

? CONSTANT PROMPTER | sortie des messages d'erreur 
{ écran }) sn 

3 CONSTANT AUX \ auxiliaire 

4 CONSTANT PRN | imprimante 


VARIABLE (FROM | conserve ticket from 
VARIABLE FROM» i conserve ticket copie from 
VARIABLE TO) À conserve ticket to 


4.10 CU éfalename) hndt -- D 
\ redirige une sortie sur un fichier _ 
?0PEN OÙP <FROM ! 1 sauve ticket d'origine 
OUP (FROM) ?00S-ERR FROM ! \et sa copie 
20PEN PATHWAY \ prend un nom de fichier 
QUP Q (SEARCHON 1 fichier existe déjà ? 
IF 4 (OPEN) \aui : on L'ouvre en écriture 
ELSE Q CCREATE) | non : on Le crée 
THEN ?DOS-ERR 
OUP 0 0 ROT 2 (SEEK) ?OOS-ERR 20ROP 
\ pointeur en fin de fichier 
OUP T0» ! GWAP (10) ?D0S-ERR ; 


: FROM € €fitename) hndl -- D 
i Ponte une entrée depuis un fichier 
2OPEN OÙP FROM : 
QUP (FROM) ?D05-ERR FROM) ! 
20PEN PATHWAY 2 (OPEN) ?DOS-ERR 
\ ouvre un fichier existant 
QUP TO» ! SWaP (10) ?DOS-ERR ; 


+ RESTORE (© -- )} | restitue direction d'arigine 
FROM» @ OUP «FROM @ (TO) ?DDS-ERR 
(CLOSE) 10» @ (CLOSE) ; 


RESTORE CC @ CONTROL Z 2x + | 
\ RESTORE direct par Ctri-Z 


eof 


M5-D0S 2.x et plus autorise les redirections d'en- 
trées-sorties pour une grande variété SEEN 
utilisant Les commandes ? D)» € ou : Sous COMMAND.COM. 
Toutes ces HUE n'utilisent que deux fonctions 
primitives: La duplication d'un handle périphérique où 
fichier et La copie d'un handie dans un autre. 


Ces deux primitives sont données pour TURBO-FORTH dans 
(EROM) et (TO) à partir desquels il est aise de définir 
tous Les types de redirection pour des usages extrèmement 
variés. Les mots utilisateur T0 FROM et RESTÔRE sont d'une 
syntaxe très simple. Voici quelques exemples: 


CON T0 ESSAI.TXT WORDS RESTORE 
crée un fichier ESSAI.TXT contenant La Liste du 
vocabulaire courant. IL est préférable de faire au 
préalable ATTRIBUTS OFF pour éviter qu'il contienne 
tes codes ANS]. 


Une nouvelle séquence 

CON T0 ESSAI,.TXT ..... RESTORE 2x 
redirigera La sortie écran dans Le fichier ESSAI.TXT à 
La fin de celui-ci. 


PRINTING ON PRN TO TEST.FTH 

LIST TRUC PRINTING OFF  RESTORE 
copie Le fichier TRUC.FTH dans TEST,FTH avec BCRO du 
Listing à L'écran. On utilise ici La double sortie 
écran-imgrimante avec redirection de cette dernière 
dans un fichier. 


CON TO PRN 
désactive L'écran: tout est AUDE sur l'imprimante 
jusqu'à l'exécution de RESTORE ou Ctri-2. 

PRN TO AUX | LS 
dirige toutes Les sorties imprimante Sur le 


périphérique auxiliaire, Le minitel par exemple. 
CON T0 NUL INCLUDE TEST RESTURE 
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interprète TEST.FTH sans aucune sortie sur L'écran. NUL 
est Le périphérique nul qui comme CON PRN ou AUX est 
interprétable comme un fichier après TO, 


KBD FROM TEST.FTH 
interprète TEST.FTH en direct, tel un fichier de macros. 
TEST doit se terminer par RESTORE ou ctri-Z. On peut 
aussi définir un EDF temporaire équivalent à RESTORE si 
Le fichier 5e termine par EDF. La redirection n'est pas 
protégée contre Les erreurs: gare aux plantages avec un 
clavier totalement inactivé.., 


Très important: Les redirections sont transmises par 
L'intégrateur ! 


KBD FROM MACROS.TXT PROGRAM R:1DOS\DEBUG.EXE RESTORE 
Lance l'exécution de DEBUG avec Les commandes inscrites 
dans Le fichier MACROS.TXT. Prévoir ici une Ligne ‘Q' 
pour ‘Quit’ en fin de fichier... 


PRN TO B:TEXTE.PRN PROGRAM WPROCESS.CON RESTURE 
Lance un traitement de texte avec toutes Les sorties 
imprimante dirigées dans un fichier TEXTE.PRN imprimable 
ultérieurement. 


Ceci n'est qu'un aperçu des possibilités de redirections: 
fichiers de macros, transferts vers des drivers 
spécialisés, multi-redirections et  filtrages, 
simulations etc... 


| SOUNDS : sons sur PC | 
[programmation Forth des ports 42h 43h et 61h compatibles 


par M. Zupan 


Systèmes: TURBO-Forth et F03 Laxen et Perry MSDOS 
Diffusion: Téléchargement 3615 SAMxJEDI et prochainement 
module M4 de TURBO-Forth. 


LISTINE: SOUNDS .FTH 
onty forth also definitions decimal 


create NOTES | 
\ table fréquence LE di fréquence audio 


{ do r mi à s0 à 

9121 , 8126 , 7239 , 6433 , 6087 , 5423 , 4831, 

4560 , 4063 , 3619 , 3416 , 3043 , 2711 , 2415, 

2280 , 2031 , 1809 , 1715 , 1921 , 1359 , 1207 , 1140 , 


hex 
: PLAY (note durée -- } 
\ joue note 0 à 21 pendant une durée en ms 
swap B6 43 PC! \active Le temporisateur 8253 
2x notes + up 
C@ 42 PCI + CQ 42 PC! 
\ programme Le 4253 sur fréquence de La note 
61 PCQ 3 OR 61 PC! \ active Le haut-parleur 
MS \ attente en ms : régler FUDGE 
i R AND 61 PC! \ désactive Le haut-parleur 
ecima 


: TEST { -- ) 

dark 

." Chacune des 22 
seconde :" 


notes doit être jouèe ici pendant k 


cr 

joue La variable FUDGE (valeur actuelle = * 
fudge ? ." ) selen votre horlage interne“ cr 

22 0 do 1 500 play Loop ; 


test enf 


It n'y a pas plus piétre musicien que Le PC: un malheureux 
haut-oarleur dont on ne peut régler Le volume Sünore, un 


Het cons le PNeNNE, des distorsions 
réquentes, un port bloqué pendant l'exécution des 5015 
(Ndtr: bref, Ë qu £ \ U SNS propre... 


yne pi N qe 


C'est dire qu'il ne faut quère en a tendre que de simples 


MESSAURS SONOTES DOUr VOS Programmes... 


En envoyant sur Le temparisateur A ES 8253 L'ordre 
de diviser par 2711 La fréquence 1193180 Hertz de l'oscit- 
tateur 8284, on obtient une fréquence de 440 Hertz qui peut 
être envoyée sur Le haut-parieur. Si cela vous chante (1, 


Le LA de La 4ème octave du clavier est un son de 440 Hertz. 


VOUS POUVEZ programmer Les dièses et Les bémots qui n'ont 
pas Été rangés dans La table des diviseurs DrODOSÉE JC1. 
La durée de chaque note est progammée par La temporisation 
Forth en milli-secondes qui doit être ajustée selon La 
fréquence d'horloge interne du système aù niveau de La 
variable FUDGE. 


Logi-Forthñ 


Informatique Médicale 


Une révolution dans l'informatique de laboratoire ! 


Tout ce que vous n'avez jamais osé demander à un système informatique... 
LOGI-FORTH vous l'apporte.. en souplesse et à un prix vraiment étonnant. 
Conçu par un biologiste, LOGI-FORTH parle le même langage que vous. II 

est étonnamment convivial et prend en charge avec la même efficacité les 


de biologiste. 


Deux configurations au choix 


MONOPOSTE ‘’EVOLUTIF" 


+ 1 VICTOR VPC II 8086 640 Ko de 
RAM DISQUE DUR 30 Mo avec 
29 ms de temps d'accès 


+ 1 Ecran Monochrome graphique 
+ 1 Ünité de disquette 360 Ko 

+ 2 imprimantes NEC CP6 Couleur 
+ Logiciel Logi-FORTH 


Prix au 15.01.88 : 75.900 F TTC 


missions les plus diverses. Multiposte, multi-tâche et éditions couleurs : 
LOGI-FORTH vous permet de vous consacrer entièrement à votre mission 


MULTIPOSTE 


° 1 VICTOR VPC Il 80286 640 Ko 
de RAM DISQUE DUR 30 Mo avec 
19 ms de temps d'accès 


* 1 Ecran Monochrome graphique 
+ 1 Unité de disquette grande 
capacité 1,2 Mo 

+ 2imprimantes NEC CP6 Couleur 
° 2 Terminaux supplémentaires 

+ Logiciel Logi-FORTH 


Prix au 15.01.88 : 110.000 F TTC 


Logi-Forth Case 923 - Luminy 13288 Marseille Cedex 9 
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Demande de renseignements 


Laboratoire 
Responsable 


Adresse 


Je désire : 


[] Documentation détaillée. 


[] Démonstration au laboratoire. 
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Paul Ortais 

6 rue Pierre Curie 
Verrieres le Buisson 
91370 69.20.45.90 


Appel au peuple du Jedi 


| 
| | 
| | 
| | 
| | 
| | 
| 
| Je suis ingénieur électronicien, designer de VLSIs, et en tant | 
| que tel sensible à la notion de performance. La simplicité a également le | 
| don de m'émouvoir. C'est pourquoi Forth me plait pour son potentiel, comme | 
| le NC4016 de Novix m'a sidéré à sa sortie il y a trois ans. | 
| Il se trouve que: | 
| - on développe le matériel (les chips) avec des outils fantastiques, et| 
| le logiciel est encore principalement produit par des méthodes primitives. | 
| Je reviendrai là-dessus pour ceux qui n'en seraient pas convaincus. | 
| _ Le NC4016 connait un succés bien infèrieur à ce qu'il devrait être, | 
| bien que ce soit le micro le plus prometteur, et de loin, depuis longtemps. 
| - J'ai le projet personnel d'un chip du même genre, exécutant un Forth 
| 32 bits, avec des facilités pour le traitement des bases de données, bien 

| plus puissant que le 4016. Appelons le F32 pour faire court. Un centre de 

| design de la région Parisienne est intéressé à titre amical pour fournir 

| les outillages. Le financement n'est pas un problème bloquant, pour peu que 
| le projet tienne la route. 

| - 11 me faut l'aide de moustachus du Forth (ce que je ne suis pas) pour| 
| le coeur du problème, qui est: quel noyau va-t'on exécuter. En effet opter | 
| pour F83 serait parfaitement irréaliste. Il parait néammoins raisonnable de| 
| prévoir une compatibilité ascendante. Et puis, à quoi ressemblera un Forth | 
| 32 bits compatible, là, je suis un peu dépassé. 

| La meilleure façon de constituer une équipe de ce genre, c'est de cons-| 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


tituer un comité à l'intérieur de l'association au lieu de vouloir que des | 


mon papier, empressez-vous de me le dire! 

J'ai naturellement une spécification de départ, mais il me parait trés 
prématuré de la détailler maintenant(Monsieur le Secrétaire, n'oubliez pas 
d'agrafer mes 2 feuilles dans le prochain numéro!). 


| 
| 
| 
Avant donc d'attaquer la falaise, je voudrais préciser mon objectif. | 
Essentiellement, utiliser le meilleur Forth sur les meilleurs circuits. 
maintenant, tout va trés vite. Les Risc arrivent, et même si leur emploi | 
demande des compilateurs sophistiqués(ce qui n'est pas le cas pour le 4016) 
ils seront la normale dans deux ans. À ce moment, une application sérieuse | 
nécessitera au minimum les 10 Mips dont on est loin aujourd’hui. Elle devra 
aussi: - exploiter une mémoire >>100Mo virtuels, >16Mo physiques | 
- être au moins multi-tâches, souvent multi-utilisateurs | 

- être fondée sur une(des) base de données hiérarchisée | 

- exploiter des bibliothèques de procédures sur disques | 

- surtout, présenter à l'utilisateur un environnement de | 

programmation orienté objet, c'est-à-dire avec encapsulation, | 

classes et héritage, compilation retardée(à la limite, en temps| 

réel vrai). | 

En y regardant bien, on voit que ces besoins forment un ensemble cohé- | 
rent; que Forth s'adapte particulièrement bien à ces contraintes. Rien ne | 
fera un meilleur objet qu’un mot Forth. Faire de la compilation retardée | 
demande un compilateur simple... L'exploitation d’une base de données se | 
ramène a gérer des listes et chaîner des pointeurs. C'est ce qu'une machine 
fera mieux que n'importe quoi d'autre. | 
F32/1 tea Te 
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Dés lors faut-il prévoir à sa conception les facilités correspondantes. Le | 
NC4016 ferait de l'excellent ouvrage, mais comme il n'a pas été optimisé | 
dans ce but, on peut faire beaucoup mieux(un ordre de grandeur) encore. | 

Le mieux pour garantir l’'encapsulation des procédures, c'est de ne pas | 
permettre leur accés interne. Une interface de Programmation graphique sera | 
présentée un peu plus tard, çà me semble assez important pour être plus qu’ 
un gadget: un impératif. Soit a créer une procédure donnant les racines d' 
un trinôme: 

cliquer dans le browser sur Maths, puis Algèbre, puis Trinome. Racines 
ne S’y trouve pas(sait-on jamais, quelqu'un en a peut-être déjà eu besoin). 
Ouvrir l'éditeur d'icônes, dessiner 


| 

| 

| 

| 

| 

| 

| 

| | 

| 9/ToTo) X1 | --0 | 
o-|£ SAT T NN | 
| 

| 

| 

| 

| 

| 

| 

| 


& o—-|4 
| 
| x2| 0 
o—-|< À 


Th 


nommer a,b,c les entrées, x1,x2 ls sorties. Pour les puristes, v valide 
la procédure, 50 et s1 sélectent le résultat. Ne pas oublier de nommer la 
procédure. Attention, si le mot n'est pas défini vous vous faites attraper 
et on vous ouvre l'éditeur de texte pour ecrire(enfin!) le Forth associé, 
Si ç'avait été déjà fait, le compilateur aurait simplement vérifié la cohé 
rence du dessin avec le mot. 

Plus modestement, F32 devrait Commencer par l'écriture d’une machine 
virtuelle, évidemment en Forth 83. 


| 
| 
| 
| 
| 
| 
| 
J'arrète là sinon j’en dirai trop. J'imagine qu’à présent vous vous ai 

tes "çà serait drôlement mieux avec les bonshonmes de Léo Brodie, ces | 
icônes là". Si c'est le cas, nous sommes d'accord pour laisser l'époque | 
préhistorique du logiciel derrière nous. | 
| 

| 

| 

| 

| 

| 

| 

| 

| 


Bien; maintenant que la bouteille est à la mer, laissons la voguer un 
peu. Nous continuerons par le tour des points critiques du projet: comment, 
pourquoi,quand,avec qui faire le F32; 
et aussi conduite du projet 

le matériel qui est le gros oeuvre, 

le logiciel au coeur du problème, 
l'utilisateur qui est le but essentiel, 
vos critiques ardemment souhaitées... 
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Le BROWSING ou "broutage", vertuchou! | 


Si vous utilisez une machine sérieuse pour faire un gros boulot, vous| 
vous retrouvez comme un rien avec plusieurs milliers d'objets sur les bras.| 
Pour commencer, un bon millier de procédures de base pour 1'0$, les | 
entrées-sorties, un second OS, le graphique, l'arithmétique, le traitement | 
des chaines... Ensuite il en faut encore autant pour le langage de haut ni-| 
veau associé au noyau, pour celui que vous implantez en rab. Ne pas oublier| 
l'application elle-même, qui sera la plus prolifique en la matière. Si | 
plusieurs personnes partagent le système il faudra en outre installer au | 
sommet du niveau "user" une hiérarchie qui, en fait, reproduit celle du 
service utilisateur(adieu, liberté chérie!). | 
Sous UNIX, on suppose à l'utilisateur une mémoire excellente, il n'a | 
pas de mal à rejoindre son lieu de travail par: | 
CD /USER/SOL/PLANET/TER/HEMISPH/NORD/EUR/FRANC/VILLE/PARI/FOLIBERGER | 
çà se complique quand il veut recopier le fichier .../CIA dans ***/KGB: | 
COPY /USER/SOL/PLANET/TER/HEMISPH/NORD/AMER/USA/VILLE/LANGLEY/CIA TO 


/USER/SOL/PLANET/TER/HEMISPH/NORD/ASIE/URSS/MOSCOU/KGB —Q 


| 
l'option -Q(query) est 1à pour lui demander "Ok pour recopier le fichier | 
(nom-a-rallonge-1) dans (nom-à-rallonge-2)" ...on dépasse la ligne... puis | 
rebelote pour demander si on peut effacer la version précédente, et enfin | 
confirmer qu'on est parti de là, arrivé ici, ouf! On ne referait pas celà | 
tous les jours. Et bien si, malheureusement. | 

La même manip avec un browser ressemble à ceci: | 


Cliquer sur un truc pour l'attraper, le caser où vous voulez, l'insérer, 
si c'est un peu plus compliqué tout mettre temporairement dans la zone 
médiane. Si on veut manipuler des paquets, des catégories: cliquer dessus 
pour les allumer, ensuite transbahuter. Quand tout a l'air nickel, renvoyer 
la fenêtre au néant, le ménage est fait. Temps nécessaire pour réorganiser 
trois mille fichiers dans 100 catégories sous une douzaine de niveaux: une 
bonne journée de travail. Sous Unix ou DOS ou xxx: infaisable. 

F32/3 


TOP |STAT |WASHINGTON | PISCINE | [Select | | 
USER |CLIMA |LOS-ANGELE | GOLF | [Crée || 
SOL IRIVIER | SAN-FRANCI | BILLARD |Supprime | | 
PLANET [VILLE |NEW—-YORK |RESTAURAN | |Ajoute || 
TER | ETHNO [DALLAS [EGLISE | |Copie || 
HEMISPH |COMMERÇ [MILWAUKEE |CENTRE-CO| |[Déplace || 
NORD |INDIANS |LANGLEY |CIA | |Insère | | 
AMER |TREES | TULSA |COI FFEUR |etc. | | 
USA |GEYSERS |BATON-ROUG | MAC-DONAL | | || 
| |DENVER [AIRPORT | | | | 
ee 2 Aa pros SR |) 
| | | 

[Clean Lib || 

|Mizajour || 

|Protection|| 
RP || 
SOL ISIBERIE |KREMLIN| [Select || 
PLANET |MOSCOU |BOLCHOI | |Crée | | 
TER | |KGB | |Supprime || 
HEMISPH| | | Ajoute || 
NORD | | | [Copie | | 
ASIE | | | |Déplace | | 
URSS | | | |Insère | | 
| 

| 

| 

| 

| 

| 

| 
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se INITIATION 

Tout d'abord, je vous écris pour vous commander TURBO-Forth 
avec M1+M2... 

Bravo pour La traduction de TURBO-Forth dans Les Langues 
européennes. AVEZ-UQuUS DENSE à Créer Un tutorial sur 
disquette et Livre (ou brochure), Il permettrait au béotien 
de se familiariser pt apprécier 53 puissance et 50n esprit, 
D'abord victime d'un coup de foudre pour F83, cette envie 
de programmer dans un Langage RATRTRE Dour Îranc-maçons 
de nique s'est estompée rapidement. Malgré L'achat 
de votre Livre "FORTH-83 Standard'qui mélange allégrement 
Les instructions (sans pratiquement d'exemples) et Les 
vecteurs, je me Suis rendu compte que je n'avais pu 
assimiler que Les instructions Samples. Les adresses de 
variables, Les manipulations de vocabulaire (ex: ALS0, 
ONLY...) Les fichiers, La mêta-compitatipon font La 
singularité et L'efficacité du FORTH, mais hélas font aussi 
Le dsespnir du débutant forthien. 
Une rubrique régulière pour nous Les débutants forthiens 
avec une démarche complète de pratique (chargement, 
compilation, commandes intermédiaires} expliquées en détail 
permettrait d'accrocher, de sauver et de donner un aperçu 
au nouveau forthien. | 

La revue, actuellement est faite pour Les fortiens 
Chevronnés et si cela continue ainsi, je retournerai 
définitivement dans L'univers de dBAGE et de mon cher BASIC 
compilé. : 

Je contribue néanmoins avec mon obole en espérant que mon 
sauvetage et que La promotion du FORTH soit réussie. 

de trouve Les articles moins morcelés, Les sujets plus 
universels et l'encadrement des titres une nécessité 
heureusement adoptée. | 

Si une publicité Sur Le TURBO-Forth est disponible sur 
disquette, imprimable sur imprimante DDR IBM, pouvez- 
vous me La procurer? J'aimerai tant diffuser TURBO-Forth 
dans Les clubs informatiques de La région caennaise. 

Tant de mois écoulés à m'enliser dans Le F83 m'ont rendu 


trop bavard. 

J.F,. MARIE 14490 BALLEROY 
REPONGE : | ; 
Bavard, Vous? Oh non! S'il y avait pius de Lettres comme La 
votre, nous aurions depuis Longtemps créé une rubrique pour 
débutants. Mais comme nous ne pouvons appréhender Le niveau 
de Connaissance de nos Lecteurs, nous ne Savons par quel 
bout commencer. Pour mieux situer tes différences de 
niveau, disons qu'il y à des programmeurs (comme Vous) qui 
débutent et ont besion du B.A.BA, et d'autres qui une fois 
reçu TURBO-Forth, se mettent à pondre des routines et des 
programmes de haut niveau (comme Le simulateur de CPU, JEDI 
44 p 15). Mais que vous soyez débutant en FORTH ou rtompu à 
toutes Les astuces de A Vous avez tous des 
pts concernant TURBO-Farth portant sur des points 
précis. 
ÜonC, NOUS pouvons commencer une rubrique “débutant FORTH", 
et La compléter par une rubrique clinique" où on tenterait 
de résoudre Les difficultés individuelles. 
Pour rendre plus efficace l'information et lépondre 
rapidement aux FERRER n'hésitez pas à utiliser Le 
service 3615 SAMHJEDT et à déposer votre prose sur Le 
FORUM, Selon La difficulté de La qusetion, vous aurez une 
réponse dans un délai de un jour à une semaine environ 
{excepté quand on part en vacance...) : 
Nous n'avons pour Le moment aucune publicité sur TURBO- 
Forth, mais elle ne devrait tarder à être mise en page. 


ue FORTH MACH IT 
Pouvez-vous our où il est possible de 
France ie Forth MACH II pour ATARI ST. 

O0. DUPONT 59300 VALENCIENNES 
REPONGE : 


Si nous 
Malheureusement, nous 
références U.6.: 


MACH II MacINTOGH 
MACH II ATARI ST 
MACH II pour 0S-9 


Mac INTOSH: inclus virguie fiattante, multi-segment, 
gestion souris, RMaker, manuel de 500 pages. 


trouver en 


LB SaVions nOus-même, nous ne L'aurions pas caché. 
ne POUVONS GUE vous donner Les 


39.935$+10.00$ port 
939.95$+10.00$ port 
435.00$+10.00$ port 


ATARI ST: GEM et 05, une flottante, redirection 1/0, 
gestion souris, manuel de 500 pages. 

ÛS-9: génère un code relogeable, Support toutes entrées 
05-3, extensions 0-9 permanentes. Liens entre FORTH et C 
et inversement. Inclus un manuel de 400 pages. 


Commande: PALO ALTO SHIPPING COMPANY P.0, Box 7430 Menic 
Park, California $4026. (USA) 
Tel support: (19-1) 415 / 854-7994 
vente: (19-1) 800 { 44FORTH 


Pour payer: VISAIMC accepté. Par chèque, consulter votre 
banque qui émettra un chèque de bangue en $US à joindre à 
votre Commande. Dans ce cas, écrivez en recommandé, Le 
Courrier S'égarant parfois... Les mandats internationaux 
ne Sont pas acceptés aux USE. 
COURRIER: NOVIX 
Des articles sur FORTH, bien entendu, mais aussi sur des 
Nouveaux Systèmes performants, tels que Le NOVIX (dot vous 
avez parlé dans Le n° 41, et Le nouveau MICROWAY 
Multiputer à 1500 Mips (décision informatique de cette 
semaine). Bravo que La nouvelle police de caractères (Le 
One 5e confond plus avec Le crochet [). 

L. NGUYEN-HUU 75014 PARIS 
REPONSE : 


51 Vous Signalez un article, joignez une photocopie. La 
rédaction de JEDI n'a pas toujours Le temps de relever Les 
informations du type de celle dont vous nous faites part, 
La nouvelle police de caractère est L'oeuvre de 
l'imprimante à Laser BROTHER. 


f PERÉMAITQUÉ sa ee ne à 
ACCES AU SERVICE TELEMATIQUE DE JEDI 


par Marc PETREMONN 


Comment joindre Le secrétaire quand son téléphone est 
OCCupê où qu'il ne répond pas’ Peut-on déranger un 
rédacteur d'article à 2 heures du matin pour avoir des 
éclaircissements sur une routine délicate? Que faire quand 
on sèche sur un mot FORTH? 


Jusqué présent, il n'y avait qu'une solution: écrire et 
attendre que votre prose passe dans La rubrique courrier, 
notamment si votre question est d'intérêt général. Le 
délai: deux à trois mois. Ce n'était pas La solution La 
plus efficace pour qui est habitué à gratter Les micra- 
secondes dans des boucles optimisées. 


Avant JEDI, 11 n'y avait rien! Puis vint JEOI pour 
étancher votre soif de FORTH! Maintenant il ÿ à: 


SAM+JEDI 
donnent un Second souffle à 


Huit caractères magiques qui 
notre association. 


VOTRE MATERIEL: 


Pour nous contacter, un MINITEL suffit, Mais 51 vous 
disposez en plus d'un PC et d'un câble de Liaison MINITEL- 
PC, C'est mieux. On n'interdit pas nor plus Les Liaisons 
entre MINITEL Et APPLE/AMSTRAD/ZX81/VAXISUN. ..CIA/KGB.. 
pourvu que votre Liaison soit gérée par un bon logiciel de 
gestion de communication. 


Des Logiciels de gestion il y en à des tas. Rien que sur 
PO, LS fleurissent Les oacs à disquette du fovineur 
Invétéré S’approvisionnant par petites annonces gratuites 
dans des revues de seconde Zone tautres que JEDI,..). 


Ce que doit faire Le Logiciel de gestion: capturer et 
enregistrer La communication avec Le serveur. On avait 
déjà cité dans un précédent numéro Le Logitiet LCE-COM, 
Mais pour Saisir les fichiers du téléchargement, un 
utilitaire du type PROCOMM est plus adapté: 


- Capture de pages au format VIDECTEX 
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- capture ASCII pour Le téléchargement 


Dans Le second ca5, La qu ne peut 5e faire page par 
page, mais en continu, Les lagiciets à télécharger étant 
envoyés sans discontinuité ni attente de contrôle en mode 
QSEET 7 bits. 

Pourquoi capturer Les communications: 

- pour gagner du temps. ARE diffusé dans JEDI 
n'est disponible 3 à 6 mois plus tard dans un module 
additionnel de IURBO-Forth; Le recopier à La main est 
rebutant et source d'erreur, En téléchargement, il est 
disponible de suite. La LAACURAPREe du serveur assure 
une disponibilité permanente. 


- pour économiser de L'argent. Consulter un FORUM et 
prendre des notes fait HAS du temps et incrémente votre 
compteur de taxes téléphoniques. En capturant Le conteny du 
ph joue pourrez Le relire tranquillement une fois 

conneté. 


NOTRE MATERIEL: 


Le serveur SAM#JEOI est installé sur un D type PC- 
AT installé à PARIS, au siège social de La Société VICTEL, 
44 bd Montmartre. 


Nous bénéficions de La commission paritaire de SEQUOIA 
PRESSE, éter rue de L'Abbaye, MEUDON, permettant ainsi 
notre diffusion sur Le 3615. 


Le système PC-AT tourne sous DOS QNX, de de gestion 
multi-tâches. Il est relié à un modem a haut débit via La 
Liaison série, que jee Liaison pERRAnene 4 fils entre Le 
modem et Le central BONNE NOUVELLE. 


Le système de gestion QNX associé au Logiciel serveur 
assure une capacité d'accueil de 32 voies simultanées, qui 
sera portée à 64 voies simultanées prochainement. 


La capacité de stockage est de 72 Mo répartie sur deux 
disques durs. 2 


Qutre SAM#JEDI, Le serveur assure Le trafic des services 
GRM et SAM#ATA entre autres. 


NOTRE VOCATION: 


Le serveur SAMXJEDI est essentiellement destiné, à assurer 
un Service d'assistance “LR aux utilisateurs de 
FORTH (F83 CPIM ou MSD05 et TÜRBO-Forth). 


Ensuite, Le serveur permet Le AU entre utilisateurs 
désirant travailler sur un prajet commun. Dans ce cas, 
SAM#JEOI remplit La fonction de répondeur ou de télex. 


Enfin, pee L'attribution de boîtes aux Lettres, it permet 
un dialogue confidentiel pour toute communication entre 
programmeurs ne souhaitant pas en faire part dans Le FORUM. 
Donc, une vocation essentiellement professionnelle, mais 
accessible à tous, adhérents ou non, débutants au 
programmeurs chevronnés. Avec le temps, Le style de 
SAM#JEOT évoluera certainement, mals restera une mine de 
RM USHLE pu tous ceux qui pratiquent et développent 
à L'aide de FORTH. 


LA MAINTENANCE : 


Le serveur SAM#JEOI dispose d'une voie d'accès par 3614, 
avec un code réservé à La maintenance. Celle-ci est assurée 
par deux personnes: 


- Marc PETREMANN, 
répondre sur Le FORUM. 

- Erik FORGET, pour 
messages du FORUM. 


secrétaire de l'association, pour 


La mise à jour des BAL et des 


La maintenance cafouille encore un peu, mais à terme, nous 
serons en mesure de faire Le nettoyage sur Le FORUM et dans 
les BAL. Une BAL ANSE AR ATI ENS gt vide sera 
supprimée. Les messages sans intérêt dans Le FORUM seront 
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éliminés. 


Les programmes à NÉSÉUSRIEl sont fournis directement à 
VICTEL Sur disquette au format ASCII MSD0S. Ils sont 
disponible dès La copie sur Le serveur: 


- 12h00, chargement sur serveur 

- 12h02, mise à nr du menu de sélection 

- 12h05, validation du nouveau menu; Les 
peuvent être téléchargés par n'importe qui 
plusieurs consultants simultanément. 


Logiciels 
et par 


Les modifications du Logiciel serveur sont à La charge de 
La Socièté VICTEL qui ne demande aucune conterpartie 
financière pour notre hébergement en dehors des revenus 
provenant des connexions au serveur. Le coût jour/homme 
pour La mise en place de SAM#JEDI est estimé à plus de 
20000 Fr actuellement. IL faudra plus de 600 heures de 
connexion pour amortir cet investissement intégralement 
pris en charge par VICTEL. 


COMMENT ACCEDER À SAMXJEDI : 


D'abord disposer d'un MINITEL (ou d'une carte de 
communication adéquate, type KORTEX ou WINNER'S). Ensuite, 
avoir Le téléphone. Enfin, composer Le 3615. Et pour 
finir, taper SAMXJEDI. 


Ah, vous faites partie des adhérents n'habitant pas en 
France (si, Si, il y en a..): composer Le (33) 36.43,15.15 
puis SAM#JÉDI. 


Attendre un peu, Le 
sobre et en 
identification: 


logo JEOI s'affiche, très beau, très 
couleurs, puis vous demande votre 


- c'est votre première connexion: donnez-vous un pseudo, 
ou mieux, votre nom. Evitez JHCHJF, ou VENDREDI 13, vous ne 
serez pas pris au sérieux. 5i votre nom est assez D UTRE 
rajoutez l'initiale où le pue complet: PASCAL À sera 
accepté. Ensuite, entrez Le code d'accès: ce code est 
strictement confidentiel et garantit L'inviolabilité du 
contenu de votre BAL. 


- ce n'est plus votre première connexion. Vous avez 
votre BAL; tapez votre pseudo et votre code d'accés. 


Taper sur SUITE pour accéder au MENU JEDI: 
sur SAM#JEDI 


Bienvenue 


1 Vous ouvrir une BAL-JEDI 
2 Ecrire un message 

3 Lire votre bal 

4 Lire Le forum 

5 Consulter l'annuaire 

6 Relire d'anciens messages 
1 TELECHARGEMENT 


+ ENVOI 
Utilisation de SAM#JEDI GUIDE 


Tagez votre choix N 


L'option GUIDE n'est pas à jour actuellement. Les autres 
sélections sont: 


d- pour ouvrir une BAL-JEDI; cette option permet La 
création d'une BAL personatisée JEDI et indépendante des 
BALS ou pseudos gérés sur Les autres services de SAM. 


è- pour écrire un message; cette option sera expliquée 
en détail plus loin. 


3- Lire votre BAL; on vous a éc 


jt personnellement. Vous 
pouvez consulter votre BAL. En in L qu 


r 
f de consu on, Un 


message vous Informe: 


EFFACEMENT OÙ COURRIER O/N , 
91 Vous répondez par 0 (majuscule), votre boite aux Lettres 
sera vide. Cetle option permet de conserver où non Le 
courrier consulté pour une connexion ultérieure. 


4- Lire Le FORUM: c'est ici que vous pourrez consulter 
tous Les messages publics contenant des questions, réponses 
d questions, trucs, astuces de programmation. 


s- Consultation de L'annuaire: avant d'écrire un message 
confidentiel, HN Si votre correspondant a toujours 53 
BAL, S'il a eu l'intelligence de mettre son. om en clair, 
vous Le retrouverez facilement. Exemple, Monsieur M à écrit 
un article génial, mais La routine RQUEQUECHOSE pose 
problème sur votre TRUC-PC; son article est signé; cherchez 
son nom Sur SAMXJED], option 5; oui, il existe: vous pouvez 
Lui écrire personnellement. 


Vaici Le contenu de L'annuaire au 18/07/84: 
BNNURIRE JED] 
ALPO 
COURTOIS 


DIMANCHE 7 
ESTHETE 


DS +4 En EN En ED FI un 
om 
= 
nl 
[an] 
La 
p=) 


6 
12 LAMBERTPH 
13 LAVEAU 
14 HOHR 
13 PAUL ORTRAIS 
15 PILVERDIER 
17 SECRETAIRE 


Quitter SOMMAIRE Autres pseudos SUITE 
secrétaire de L'ASSOCIATION est SECRETAIRE 


Le pseudo du 
évidemment. 


d'anciens 

chaque consultation, 
de Connexion sont enregistrées. La lecture du FORUM 
affichera tous Les nouveaux messages reçus en votre 
absence. Mais entre-temps vous vous êtes équipé du 
merveilleux logiciel de capture XYZABCPM et vous voulez 
avoir une trace de ce qui s'est dit depuis une date donnée 
ou depuis L'ouverture du FORUM; tapez La date choisie et 
Lancez La relecture. La date est au format JJMMAA et non 
JJIMM/AR, L'appui sur ENVOI sans préciser de date de départ 
relance La Lecture de tout Le contenu du FORUM. 


7- TELECHARGEMENT: L'option maîtresse de SAMXJEDI. Tout 
programme un peu important pour TURBO-Forth est disponible 
dans cette option. Choix du Langage: 


MES5Sages; Ceux du FORUM 
votre date et heure 


6- relecture 
aaturellement. À 


L'association 


dEDI 
LE 
VOUS propose 
TELECHARGEMENT 
de nombreux 
togiciels, 
1 FORTH Infos pour Le 
2  PROLOG nt AL 
+ BASES DE DONNEES lapez GUIDE 
+ PASCAL 
J JEUX Votre choix 
6 DIVERS N 1 + ENVOI 


Les prog de type J sont de L'as5. JEDI 


SEUL FORTH et PROLOG contiennent Dour Le moment des 
nPogrammes. Voici Le menu des programmes FORTH: 


FORTH PC 


N° Programme Type Description 


1 5IMUT802.FTH J A SIMUL MP1802 RCA 

2 UT4,602 JB SIMUL MP1802 RCA 

3 WINDOWS .FTH J A MULTI FENETRAGE 

4 DBCOOK.FTH JA ACCES FICH DBASE3 
3 ALEPH.FTH JA VARIABLES LOCALES 
6 COMPACT.FTH J A COMPACTEUR [-F63 

T ERATHOS.FTH J A CRIBLE ERATHOSTHEN 
8 FLOAT.COM JB MODULE PRECOMPILE 
3 FLOAT.FTH JA SOURCE FTH4PASCAL 
10 FPACK.FTH JA VIRG FLOT I-FB3 
17 HALT.FTH JA REND TF83 RESIDENT 
12 HERCULE.FTH JR FONCT. GRAP.HERC 
13 HERCULA.FTH J A EXMP GRAPHIQUES 
T4 INFIX.FTH JA NOTATION INFIXEE 
15 EDIT.COM J 8 EDITEUR ASCII TF83 


du Logiciel à Télécharger :. ENVOI 


N 
SOMMAIRE ou autres programmes  SÜITE 


Pour Là première page. Suite du menu pour La Seconde page: 
FORTH PC 


N Programme Type Description 


T EDITERR MSG 
2 FORTH.VOC 
3 ROOT.VOC 


: ! MESSAG-ERR EDITEUR 
JA 

4 TURBO.COM JB 
JA 
JA 
JA 
JA 


AUTOUOC FORTH TF83 
AUTODOC ROOT TF83 
TURBO F83-STANDARD 
TRI VOCABULAIRE 

FONCTIONS CHRONOM. 
1 TIMER.FTH HORLOGE SYSTEME 

Ô UFILES.FTH OUTILS FICH. TF83 


Pour chèque page, ie Logiciel est marqué par un numéro, Le 
nom du fichier, La lettre J, La Lettre A ou B et le 
descriptif du programme. Pour télécharger un programme, 
procéder comme suit: 


3 SYORDS.FTH 
6 TIME.FTH 


- mettre en route Le DÉtn de capture TELETEL 

- accéder à SAM4JEDI, option 7 : : 

- Choisir son programme dans une Liste: .Si Le programme 
est marqué A, une capture ASCII sera suffisante; dans Le 
Cas contraire, utiliser TELECHAR sur disquette KERMIT PC. 
La Lettre J indique que Le programme est d'origine JEDI, 
La société YICTEL 5e réservant Le droit de rajouter des 
programmes à 54 convenance sans Lettre J. 


ECRITURE ET ENVOI D'UN MESSAGE: 


Choisir L'option 2, que ce soit 


5 0 pour envoyer 
public ou confidentiel. 


un message 


La Saisie du message peut commencer immédiatement après La 
sélection de cette option. 


40 carac- 


Le message est composé de 20 QULE de moins de 
tères, Les caractères de contrôle VIDEOTEX ou accentués ne 
sont pas acceptés pour Le moment. Ceci provient du pro- 
gramme de gestion TELETEL, mais sera EL dès que pos- 
Sible. En cas d'erreur, apouyer sur CORRECTION. 

taper SUITE: 


Pour passer à La que suivante, à ta ligne 


précédente, taper RETOUR. 


Arrivé à La 20ênE Ligne, si 


vaus Te cün 
message, taper ENVOI P Dä 


tinuer votre 
Sd1Sir une NOUve 06. 


SED LE Mi 13 


Pour achever La saisie d'un message, mettre un point en 


début de Ligne suivante et taper sur ENVOI. 
Ensuite, un menu Vous propose: 
ENVOI OU MESSAGE: 
1, SYSOP JEDI 
è, FORUM 
3. CONFIDENTIEL 


L'option 1 est à réserver pour COMMUNIQUEr AVEC La gérance 
de SAM. 


L'aption 2 envoie votre message sur Le FORUM. 
L'option 3 affiche L'annuaire; taper Le numéra précédant Le 
pseudo de votre correspondant. Le même none peut être 
envoyé à plusieurs correspondants; il suffit de taper Les 
numéros précédant chaque pseudo suivi de ENVOI. 


f ue phase du déroulement du service, l'appui sur 
SOMMAIRE renvoie au choix ou au menu précédent. 


L'abandon de SAMXJEDI se fait par appui sur CONNEXION/FIN. 
VOS SUGGESTIONS: 


vous avez une idée de modification ou d'amélioration du 
service SAM#JEDI, faites-nous en part. Nous répercuterons 
votre proposition sur VICTEL. 


DELEMATIQUE ue —— 


| CONTENU 
OU FORUM SAMXJEDI AU 11/07/88 


par M. PETREMANN 


Les adhérents de JEDI ne disposant pas d'un 
voici une transcription 
Les propos intéressants 


Pour que J 
MINITEL ne se sentent pas rejetés, 
du contenu du FORUM reprenant 
diffusés depuis La mise en service. 


SECRETAIRE | 21.06.88 10h37 
Enfin, La messagerie JEDI ouvre 5e5s portes. Vous pouvez 
dorenavant poser des HA d'ardre technique sur tous 
Les problemes d'ordre technique que vous rencontrez avec 
TURBO-Forth et tous Les Lan 
pratiquez. Vous etes cordialement Invi 
autres dans La mesure de vos competences. 


SECRETAIRE 28.06.88 16h07 
TURBO-Forth est maintenant disponible en version anglaise 
äu meme ju que La version francaise: 

37,00 Fr Le modute Miou M2 où M3 
10,00 Fr pour deux modules : 
100,00 Fr pour Les trois modules port compris. 


De SECRETAIRE Ou 05.07.88 À 12h51 
SAISIE DES MESSAGES SUR SAMHJEDT … 
On me signale deja quelques difficultes de saisie de 
ae _ 
- (es accentues perturbent La saisie; ne pas Les 
utiliser, Si vous en tapez une accidentellement, tapez sur 
ANNULATION et resaisissez La JEU 
- une Ligne ne peut depasser 33 caracteres. | 
- un message est decoupe en pages de 20 Lignes; La taille 
d'un message n'est pas Limitee. 
- passer de Ligne en Ligne en tapant sur SUITE. 
- pour finir un message, mettre un point en debut de 
Ligne suivante et taper sur ENVOI. 


POUR CHOISIR SON CORRESPONDANT, 
attendez de revenir au Menu proposant: 

1 SYSOP JEDI 

à FORUM 

3 CONFIDENTIEL ; 
AA 4 est à reserver pour communiquer avec 
8 ! 


autres SE que Vous 
es à aider Les 


La gerance 
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L'aption 2 diffuse votre message dans 
etre Lu par tout Le monde. 

L'option 3 vous affiche une Liste de correspondants; 
choisissez Le correspondant a qui vous destinez votre 
message; profitez-en, Vous pouvez envoyer votre message à 
plusieurs personnes en tapant successivement Les numéros 
de vos differents correspondants. 


N'ABUSEZ PAS DES MESSAGES SANS INTERETS 
Evitez de deposer dans Le Forum un message sans 
signification; il sera UE pitie. Idem Si votre 
message ne concerne pas La micro: allez vendre vatre 
voiture ailleurs. _ | 
Ne vendez pas non plus de Logicielts) pirate(s) etne 
cherchez pas l'ame soeur pour une nuit de folie: il y à 
d'autres Serveurs pour cela, | 
Le FORUM JEDI est un outil; vos suggestions 
bienvenues; Les petits delauts de demarrage 
arranges en temps utile. 

Amities. 


De SECRETAIRE Ou 05.07.88 À 12h58 

CORRECTION DE UM/MOD | | 

Une bague dans UMIMOD subsiste dans La version F83 de 
Laxen et Perry et a ete repercutee sur TURBO-Forth. Mr 
Fred BEHRINGER, notre correspondant Outre-Rhin nous 
communique La solution: 


Le FORUM; il peut 


sont Les 
seront 


" UMIMOD 30 DUMP 
affiche 
HET 9 À B C D E F 


TR 07 58 5A 58 33 OA 7C 


que L'on remplace par 72 . 
Et La version en code machine peLt etre modifiee dans Le 
pragramme source (fichier KERNEL.IXT) par La nouvelle 
version de UM/MOD decrite en page suivante: 


CODE UM/MOD ( code 8086) 
bx pop dx pop ak pop 
bx dx CMP 
Uz (au lieu de )= ) 
IF -1 # ax mov ax dx mov 
push 
EN 


bx div 

push END-CODE 
De SECRETAIRE Ou 05.07.88 A 13h03 
MICRO-PROCESSEUR FORTH FRANCAIS 
Mr Paul ORTAIS envoie un aguel au UE du JEPI: 

- I a Le projet personnel d'un chip similaire au NC 4016 

de Novix, executant un Forth 32 bits avec des facilites 
pour Le fraitement de bases de donnees. 
— Un centre de AL de La region parisienne est 
interresse a titre amical pour fournir Les outillages. Le 
financement n'est pas un probleme bloquant, pour peu que 
Le prajet tienne La route. 

- IL faut L'aide de moustachus du Forth pour Le coeur du 
probleme, qui est: quel noyau va-t-on executer. À quoi 
ressemblera un Forth 32 bits? ne 
Pour en savoir plus Longuement, attendez La publication 
dans JEDI 45 des trois feuitlets qu’il m'a fait parvenir, 
ou contactez Le a: 

Mr PAUL ORTAIS 

6, rue Pierre Curie 

91370 VERRIERES LE BUISSON 

tel dom: 69.20.45.90 
De JACCOMARD Ou 05.07.88 À 16h42 
A SECRETAIRE 
QuI' IL EST BIEN LE SERVEUR. OUI! J'AI RECU LE NO 44 DE 
JEOI MAIS JE NE SUIS PAS GERMANOPHONE 
Y A-T-IL UN TRADUCTEUR DANS LE FORUM??? 
De SECRETAIRE Du 08.07.88 À 13h21 
MICRO-PRO 32 BITS FORTH | 
L'idee de Mr Paul ORTAIS est excellente. Outre Le fait 
qu'elle mobiliserait Les competences autour d'un projet 
ambitieux, elle permettrait d'eprouver Les connalssances 
et Les Limites du FORTH. 
Pour ma part, je propose La demarche suivante: 


1) definition du jeu d'instructions du micro-processeur 
Suite Page 


PARU DANS FOTH D) PRIE Jens 


TO THE FUTURE 


MITCH BRADLEY-MOUNTAIN VIEW, CALIFORNIA 


3 PAR machines are here to stay. 


Over the next few years, 32-bit machines 
will grow in importance. Forth must be 
able to use the full power of 32-bit 
machines. 

This article presents a consistent, 
proven scheme for using Forth on 32-bit 
machines, based on several years of 
experience with 32-bit systems. It does 
not address the problems of simulating 
extended addressing on the 8086. The 
focus is on making the transition from 16- 
bit Forth systems to “real” 32-bit 
architectures like the 80386, the 68000, 
and the IBMRT. 


Goals 
1. Programs should run unchanged on 
either 16-bit or 32-bit machines. 


2. The 32-bit machine must not be 
penalized. The full power of the 32-bit 
machine must be available. 


Tradeoffs 

LExisting programs may have to be 
modified in order to make them run on 
either size machine. 


2. À lot of new words are specified. These 
words are necessary because the existing 
words do not work right on 32-bit 
machines. 


Justification 

Forth will not succeed if it remains 
stuck at 16 bits while he world switches 
to 32 bits. Insisting thaï existing pro- 
grams run unchanged on 32-bit machines 
penalizes the 32-bit implementation. 

The wordset presented here penalizes 
neither 16-bit nor 32-bit machines. It adds 
no new funüonality, it simply specifies a 
set of names for words whose behavior is 
independent of the machine size. 


What is a 32-bit Machine? 

The distinguishing factor is the size of 
the address arithmetic. The address 
arithmetic determines the size of an 
address that can be easily calculated. The 
68000 is a 32-bit machine — even 
though its data path is only 16 bits wide, 
and even though the package has only 24 
address pins — because it is easy to 
calculate 32-bit addresses. The 80286 is a 
16-bit machine, even though it has more 
than 16 address pins; addresses outside a 
16-bit bank are painful to calculate. 


FORTH 


Forth prefers to represent an address as 
a single entry on the stack, since the 
same operators are used for both number 
arithmetic and address arithmetic. It is 
possible, but troublesome, to represent 
addresses as multiple stack items. The 
preferred width of the Forth stack on a 
particular machine is the size of that 
mächine's address arithmetic. 


Compatibility Problems 

When moving code from a 16-bit 
Forth implementation, there are two 
major problems. 

Most Forth programs contain lots of 
things like 2+ and 6+. This is fine if 
you are trying to add two or six to a 
number, but it causes problems if you are 
Wying to increment an address lo point to 
the next number. On most 32-bit 
machines, successive numbers are four 
addresses apart, not two. 

16-bit numbers are inadequate for 
manv purposes, so Forth has ‘double 


numbers,” which are 32 bits, represented 
as two stack items. 32-bit systems do not 


need two stack items to represent à 32-bit 
number. Existing 16-bit programs use 
fancy stack manipulations to move the 
Separate halves of a 32-bit number. 
Double-number operators like 2DUP are 
used both for pairs of single numbers and 
for 32-bit numbers. A 32-bit number is 
an entirely different thing than a pair of 
numbers. They just happen to have a 
similar representation on a 16-bit System. 
On a 32-bit system, this isn't true. 


Solutions 

Some brief words about the nomen- 
clature used here: 

À “normal” is a number thai is 
represented as one stack entry. Oui à 16- 
bit machine, à normal is 16 bits. On à 32- 
bit machine, à normal is 32 bits. The 
majority of all Forth operations are 
performed on normal numbers. 

À “longword” is always a 32-bir 
number. On à 16-bit machine, à longword 
is represented as two stack entries. On a 
32-bit machine, a longword is represented 
as one stack entry. 

À “word” is always à 16-bit number. 
On a 16-bit machine, a word is repre- 
sented as à single stack entry. On à 32-bit 
machine, à word is represented as the low 
16 bits of à stack entry, with the upper 
16 bits set to zero. 

À “character” is always an 8-bit 
number. À character is represented as the 


low eight bits of à single stack entry, 
with the remaining upper bits set to zero. 


Address Incrementing Words 
Changing all occurrences of 2+ ta 
4+ doesn't solve the problem, it just 
swecps it under à different rug. What we 
rcally need is a way to increment an 
address by the right number, regardless of 
what machine we're on. To do this, we 
define some names for the sizes of things. 


/N (--n) “per-n” 

The number of bytes in à “normal” 
number, which is a single stack entry. 
/N is four on a 32-bit machine and two 
on a 16-bit machine. 


/L (--n) “per-l” 
The number of bytes in a 32-bit 
“longword.” /L is four on all machines. 


/4 ( en } “per-w” 
The number of bytes in a 
“word.”/W is two on all machines. 


16-bit 


/C (--n) “per<” 
The number of bytes in an 8-bit 
“character.” /C is two on all machines. 


The notation /X for “the number of 
bytes in an X,” pronounced “per-x,” 
follows the recommendations in Kim 
Harris’s nomenclature guidelines C‘Forth 
Coding Conventions,” Proceedings of the 
1985 FORML Conference). 


You might think, since /L is always 
four, that the name “/L” is not needed. 
Ditto for /W and /C. However, the 
symbolic name /L clearly indicates that 
the code is dealing with the size of a 
longword, rather than the number four, 
which could be anything — perhaps the 
expected number of legs on a cow. Magic 
numbers make programs harder to 
understand and maintain! 


Others have suggested the names 
CELL and LSIZE instead of /N: 
however, the name “normal” and the 
mnemonic “N°” will be useful to us later. 


What will we do with these constants? 
One obvious answer is to replace 
occurrences Of 2+ with /N. Similarly, 
in cases where we want to S&Æp through 
an array Of 16-bit words or 32-bit 
longwords, we might use /W4+ or /L+. 
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Another use is to calculate the number 
of bytes to ALLOT for some data 
structure or array. For instance, if we need 
space for 100 normal numbers, we could 
write 100 /N %* ALLOT instead of 
100 2% ALLOT. 


A third use is to index into an array. 
Instead of writing the code in Figure One- 
a, for instance, we might use instead the 
definitions in Figure One-b. Notice that 
in all these cases, we have given up some 
efficiency! The word 2+ probably 
executes faster than the two words /N 
+ and 2% almost certainly is faster than 
/N *. We will not tolerate such 
inefficiency! Therefore, we define some 
more words, their existence amply 
jusuficd by frequent use. 

The functions in Figure Two are 
presenty performed with 1+, 2+, and 
a+, whose use does not work on all 
machines. Most occurrences of 2+ in 
existing Forth code can be replaced by 
NAl+ to make the code more 
transportable. The names stand for 
“normal-address-one-plus,” etc. indica- 
ting that they increment an address to the 
next datum of a particular type. 

Some machines do not directly address 
bytes. For instance, the Novix Forth chip 
is a word-addressed machine. Adding one 
to ar address moves to the next 16-bit 
word, not to the next byte. For such 
machines, NA1l+ is not equivalent to 
/N +. The real rule is that NA1l+ 
should increment an address to point to 
the next item of a given type. 

The words in Figures Three and Four 
find the address of the nth item in an array 
of items starting at addr. For instance, 
NA is equivalent to /N* + on most 


machines. 
This may seem like a lot of words. It 


is a lot, but they are frequentiy used, 
which is the same justification uscd for 
words Like 1+ and 2%. 


Explicit 32-bit Operators 

One solution to the double-number 
problem on 32-bit machines is to make 
double numbers 64 bits. This is attractive 
because it is compatible with existing 
code that manipulates double numbers as 
pairs of stack entries. On the other hand, 
it is inefficient. 64-bit arithmetic is 
slower than 32-bit arithmetic on most 
machines. While many applications 
require more than 16 bits of precision, 
few require more than 32. 

1 believe the best long-term solution is 
to define a set of words that explicitly 
operates on 32-bit data, regardless of the 
machine’s word size. The names of these 
words begin with the letter L, indicating 
that they operate on “long” operands. 
Their implementation is simple. On a 16- 
bit machine, they are the same as the 
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exisang “D” words (e.g., D+) and the “2” 
words (e.g., 2DROP). On a 32-bit 
machine, they are the same as the regular 
single-number operators. The important 
point is that the “L” operators always 
operate on 32-bit longwords, regardless of 
machine size. 


Long Arithmetic Operators 
Some 32-bit arithmetic operators: 


L+ (LIL2--L3) “lplus” 

Adds 32-bit longwords. On a 16-bit 
machine, L+ is the same as D+. On a 32- 
bit machine, L+ is the same as +. 


L- (LIL2--L3) “lminus” 
Subtracts 32-bit longwords. On a 16-bit 
machine, L- is the same as D-. On a 32- 
bit machine, L- is the same as -—. 


Lx (LIL2-L3) “l-times” 
Multiplies 32-bit longwords. On a 16-bit 
machine, L* is the same as D* (which 
is not included in the standard). On a 32- 
bit machine, L* is the same as *. 

L/ (LIL2--L3) “l-divide” 

Divides 32-bit longwords. On a 16-bit 
machine, L/ is the same as D/ (which 
is not included in the standard). On à 32- 
bit machine, L/ is the same as /. 

1 haven’t mentioned all the operators 
that are needed, but the rest of them are 
named in the obvious way. For instance, 
L= compares two 32-bit longwords for 
equality. 


Stack Manipulations 

The “2” stack operators, such as 
2SWAP and Z2DUP, are unsatisfactory 
for manipulating 32-bit longwords. Such 
operators were originally intended for 
manipulating pairs of numbers, which are 


CREATE MYARRAY 
: FILLIT ( -- ) 


100 2* ALLOT 
100 0 DO I 


CREATE MYARRAY 
: FILLIT ( -- ) 


100 /N * ALLOT 
100 9 DO I 


addr 
addr 
addr 
addr 


addr+/n ) 
addr+/1 ) 
adar+/w }) 
addr+/c ) 


addr+n*/n 
addr+n*/1 
addr+n*/w 
addr+n*/c 


MYARRAY 


Figure La. 


MYARRAY 


Figure 1b. 


Figure 2. Words to increment an address by the appropriate amount. 


Figure 3. Words to scale by different sizes. 


Figure 4. Words to index into arrays. 
RE | 


distincuy different from 32-bit longwords. 
Ï propose a set of 32-bit stack 
manipulation operators whose names 
begin with (you guessed it) the letter L. 
Examples are LSWAP and LDUP. 

Mixing 32-bit numbers and 16-bit 
numbers on the stack poses problems. In 
a 32-bit system, all stack entries are 32 
bits, so this is not too bad. On a 16-bit 
system, both 32-bit and 16-bit numbers 
may need to coexist on the stack. 
Currently, this is handled in an ad hoc 
fashion, using operators like ROT to 
separately manipulate the pieces of the 
numbers. Programs that do this are not 
portable to 32-bit machines (here I 
assume that we have decided against using 
64-bit numbers). What we need is a set of 
operators for manipulating mixed stacks. 
The needed operators mostly duplicate 
existing functions, so we really don't 
need new capability, just new names! The 
new names will clearly specify the sizes 
of the operands. 


LDUP (L--LL) ‘“l-dupe” 
Duplicates a 32-bit longword. On a 16-bit 
machine, LDUP is equivalent to 
2DUP. On a 32-bit machine, LDUP is 
equivalent to DUP. 


LSWAP (LIL2--L2L1) “lswap” 
Exchanges 32-bit longwords. On a 16-bit 
machine, LSWAP is equivalent to 
2SwWAP. On a 32-bit machine, LSWAP 
is equivalent to SWAP. 


LOVER ( LI L2 - Li L2 LI) “te 


over” Copies a 32-bit longword over a 
32-bit longword. On a 16-bit machine, 
LOVER is equivalent to 2OVER. On a 
32-bit machine, LOVER is equivalent to 
OVER. 


I 2% + :! 


EN Xe LOOP 


“n-a-one-plus" 
"l-a-one-plus" 
"“-a-one-plus" 
"c-a-one-plus" 


"per-n-times" 
“per-l-times" 
"per-w-times" 
"per-c-times' 


“"n-a-plus" 
"l-a-plus" 
“w-a-plus" 
“c-a-plus" 


œ ° 


LDROP (L1--) “l-drop” 
Removes a 32-bit longword from the 
stack. On a 16-bit machine, LDROP is 


equivalent to 2DROP. On a 32-bit 
machine, LDROP is equivalent to 
DROP. 

LROT (LIL2L3-L2L3L1) “| 


rote” 

Rotates 32-bit longwords. On a 16-bit 
machine, LROT is equivalent to 
2ROT. On à 32-bit machine, LROT is 
equivalent to DROT. 


LNSWAP (Ln--nL) “l-n-swap” 
Exchanges a 32-bit longword with a 
normal number. On a 16-bit machine, 
LNSWAP is equivalent to ROT ROT. 
On a 32-bit machine, LNSWAP is 
equivalent to SWAP. 


NLSKWAP (nL--Ln) “n-l-swap” 
Exchanges a normäl number with a 32-bit 
longword. On a 16-bit machine, 


NLSWAP is equivalent to ROT. On a 
32-bit machine, NLSWAP is equivalent 
to SWAP. 


LNOVER (Ln--LnL) “l-n-over” 
Copies a 32-bit longword over a normal 
number. On a 16-bit machine, 
LNOVER is equivalent 10 2 PICK 
2 PICK. On a 32-bit machine, 
LNOVER is equivalent to OVER. 


NLOVER 
over” 
Copies a normal number over a 32-bit 
longword. On a 16-bit machine, 
NLOVER is equivalent to 2 PICK. 
On à 32-bit machine, NLOVER is 
equivalent to OVER. 


(nL-nLan) “n-l 


L>R (L-) “lLto-r’ 
Moves à 32-bit longword to the return 
stack. 


LR>(--L) “]-r-from” 
Moves a 32-bit longword from the return 
stack. 


L>R and LR> are provided to help with 
more complicated stack manipulations 
involving mixed stacks. (However, it is 
usually preferable to try to avoid complex 
stack gymnastics, instead.) 


Accessing Memory 

We need sôme words for acCESsIng 
memory items of various sizes. We 
already have C@, C!, 2@, 21, @, and 
!. We also necd some words to access 
exactly 16 bits and exactly 32 bits, so we 
add these words: 

W@ (adr—16b) “w-ferch” 

Feiches the 16-bit word at adr. On a 32- 
bit machine, the result is padded with zero 
to form a 32-bit normal number on the 


Stack. 


<W@ (adr--16b} “signed-w-fetch” 
Fetches the 16-bit word at adr. On a 32- 
bit machine, the result is sign-extended to 
form a signed, 32-bit normal number on 
the stack. 


x! (16b adr--) “w-store” 

Stores the 16-bit word at adr. On a 32-bit 
machine, the number “16b” is represented 
on the stack as the lower half of a 32-bit 
normal number, and only the lower 16 
bits are stored at adr. 


L@ (adr-—-L) “l-fetch” 

Fetches the 32-bit longword at adr. On a 
16-bit machine, the result is left on the 
stack as two 16-bit numbers, with the 
most-significant half on the top of the 
stack. 


L! (Ladr--) “lstore” 

Stores the 32-bit longword “L” at adr. On 
a 16-bit machine, the longword “L” is 
represented on the stack as two 16-bit 
numbers, with the most-significant half 
on the top of the stack. 


Type Conversion 
Some words for converting to and 
from 32-bit longwords: 


N->L  (n--L) ‘“n-10-l” 

Converts à normal number to an unsignd 
32-bit longword. On à 16-bit machine, N- 
>L is equivalent to 0. Docs nothing on a 
32-bit machine. 


S->L (n--L) “signed-to-long” 
Converts à normal number to a signed 32- 
bit longword. On a 16-bit machine, S- 
>L is equivalent to S->D. Does 
nothing on a 32-bit machine. 


L->N (L-n) “lto-n” 

Convens a 32-bit longword to à normal 
number. On a 16-bit machine, L->N is 
equivalent to DROP. Does nothing on a 
32-bit machine. 


Important Note 

Ît is neither necessary nor desirable to 
use the “L” operators all the time on a 32- 
bit system. Most of the time you dor’i 
really care whether a number is 16 bits o: 
32 bits. So you just use the norraial 
operators bike +, -, DUP, etc. The righi 
time to use the “L” operators is when: 


1. You require more than 16 bits, and 
2. You want your code to run on both 16- 
bit and 32-bit machines. 


In particular, Ï use the “L” operators 
when converting “double numbers” from 
16-bit machines to 32-bit machines. Also 
remember that “double numbers” on 16- 
bit machines are not always the same as 
32-bit longwords. Sometimes the “double 
number” operators are used to manipulate 
pairs of single numbers. Such uses must 
remain unchanged. À pair of numbers is 


still a pair of numbers, even on a 32-bit 
machine. 


The Name’s the Thing 

The underlying problem is that Forth 
often uses the same name for different 
purposes. Examplies: 2+ is used to add 
the number two, and to increment an 
address to the next word; 2DROP is used 
to remove two single numbers from the 
stack, and to remove a 32-bit number 
from the stack. This happens to have 
worked in the past, because Forth just 
assumed that every machine in the world 
is a 16-bit, byte-addressed machine. (In 
fact, it didn't work on the Data General 
Nova, which is word addressed!) Different 
conceptual functions should have different 
names, even if the functions happen to 
have identical implementations on a 
particular machine. 

That is why I am proposing new 
names without any new functions! 
Yes, But … 

If we make all these new names for 
functions we already have, like 


LSWAP 
2SWAP ; 
doesn't the code run slower? There are 
two answers: 


{ LI L2 - L2 Li ) 


1. [L’s not much slower. 
2. There's a way to get the speed back. 


To speed it up, see the article on 
synonyms (Yngve, Victor H. “Syno- 
nyms,” Forth Dimenions VI/3). A syno- 
nym provides a new name for an existing 
word, with no run-time penalty. Basic- 
ally, a synonym is an extra name for an 
exisüng word. When the compiler sees 
the new name, it compiles the compil- 
ation address of the existing word. 


Tips for Converting Programs 


When I convert a 16-bit program to a 
32-bit machine, the first thing I do is 
search for all occurrences of the character 
2. I look for the number two and for 
words that start with 2, such as 
2DROP. Many of these have to change. 
Usually, words like 2+ change to 
NAÏ+, aid 2% 10 /N*, etc. For words 
like 2DRCP, you have to decide whether 
it 1 being used to drop a pair of normal 
numbers (in which case you leave it 
alone), or a 32-bit number (in which case 
it changes tn LDROP). 

The ext thing [look for is words like 
D+, D, ic, changing them to L+,L-, 
etc. 

Sometimes the word 3 +: used to 
convert an unsigned normal number to a 
longword. This has to change 15 N->1. 

Finally, [look for cases were stack 
manipulations like ROT aie: 16 swap 
mixed 32-bit and 16-bit numuers. ‘l'hese 
Change to words like NLSWAP. These 
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are not as hard to find as you might 
guess, because they usually occur just 
before a 32-bit operator, so you should 
keep an eye out for them while looking 
for 2,D+,0,etc. 

Since each of the words proposed here 
can be implemented 50 easily, it is easy 
to add them to the program as vou need 
them. I usually group their definitions 
together at the beginning of the source 
code, to make them easier to find. 

Sometimes you may find you necd a 
mixed 16-bi/32-bit operator not men- 


Further Reading 


This wordset was originally proposed 
in two earlicr papers. 


1. Bradley, Mitch and Sebok, Bill. 
“Compatible Forth on a 32-bit Machine,” 
The Journal of Forth Application and 
Research, Vol. 2 No. 4, 1984. 


2. Bradley, Mitch and Sebok, Bill. 
“Extended Addressing Wordset,” Working 
Group Report, Proceedings of the 1984 
Rochester Forth Conference. 


words to perform extended addressing on 
16-bit machines. Vol. 2 No. 4 of The 
Journal of Forth Application and 
Research contains several papers 
describing other aspects of 32-bit 
machines. 


Mitch Bradley is the owner of Bradley 
Forthware, vendor of the 32-bit “Forth- 
macs,” à very complete Forth-83 enviro- 
nment for the Atari ST. 


tioned here. Î recommend that you pick à 
name starting with either “NL” (Gif the 
longword is on the top of the stack) or 
“LAN (if the normal number is on top). 


These papers describe some other words 
not mentioned here, including names for 


Suite de k 


| en question 


2) creation d'un assembleur FORTH implante dans 
TUR8O-Forth. On L'appellerai ASSEMBLF32 par exemple et 
toutes Les instructions CODE..END-CODE redirigees Sur ce 
nouveau vocabulaire. Une sequence mins en 
assembleur F32 genere un code executable ‘virtuel’ dans un 
segment memoire approprie. Le contenu de ce segment pourra 
etre sauvegarde sur disque. | aa 

3) definition d'un simulateur, construit sur Le principe 
de celui de Mr OUMUR (voir JEDI 44) mais tenant cnrs d'un 
en F32 virtuel (memory mapping, interfaces, buffers, 
etc...) permettant une execution pas-a-pas où ‘temps-reel”. 


Bien entendu, ce systeme virtuel ne serait pas au55i 
performant que Le vrai Systeme F32, mais permettrait de 
tester des programmes ‘grandeur nature’ alors que Le F32 
n'existe pas encore. 


Pour ma part, je me propose de diffuser à La demande des 
volontaires intèresses par Le projet F32, Le simulateur de 
Mr OUMUR sur disquette, ceci pour ceux qui n'arrivent pas à 
Le telecharger depuis SAM#JEDI. Deposez votre demande, en 
precisant nom et adresse, dans La BAL JEDI. 

De PILVERDIER Du 11.07.88 À 15h05 

DANS F-PACK : 

LE MOT ?10PWR NE RENVOIE PAS LA VALEUR À LAQUELLE ON 
POURRAIT S'ATTENDRE. EST-CE NORMAL VU SON UTILISATION? 
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